очень надо
Напишите на языке Паскаль программу вычисления y

282

332

Посмотреть ответы 1

Ответы на вопрос:

Py4KaJKJLACC

Информатика

4,4(47 оценок)

Const n = 9; var a: array[1..9] of integer; i, num: integer; rez: string; begin for i : = 1 to n do begin a[ i ] : = random(9)+1; write(a[ i ], ' '); end; writeln(); write('введите номер спортсмена: '); readln(num); if (num = 1) or (num = 2) or (num = 9) then rez : = 'баскетболист'; if (num = 3) or (num = 4) or (num = 5) then rez : = 'бегун'; if (num = 6) or (num = 7) or (num = 8) then rez : = 'штангист'; writeln('данный спортсмен - ', rez); end.