Программирование на языке pascal, используя case ввести число ( от 1 до 4) если число = 1 то вывести окружность, если - 2, то вывести квадрат, если - 3, вывести ромб, если - 4, вывести параллелограмм.

222

299

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

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

Браство

Информатика

4,5(29 оценок)

Var a: integer; begin write('a = '); readln(a); case a of 1: writeln('окружность'); 2: writeln('квадрат'); 3: writeln('ромб'); 4: writeln('параллелограмм'); else writeln('ошибка ввода'); end; end. пример: a = 3 ромб

tilkamilkap0ct2o

Информатика

4,8(52 оценок)

Const e=10000; var a: array[1..e,1..e] of real; i,j,n,m: integer; k: real; begin readln(n,m); for i: =1 to n do for j: =1 to m do read(a[i,j]); for i: =1 to n do for j: =i+1 to m do begin k: =a[i,j]; a[i,j]: =a[j,i]; a[j,i]: =k; end; for i: =1 to m do begin for j: =1 to n do write(a[i,j],' '); writeln; end; end.