Пусть элементами круга являются радиус (первый элемент), диаметр (второй элемент) и длина окружности (третий элемент). составить программу, которая по номеру элемента запрашивала бы его соответствующее значение и вычисляла бы площадь круга. решение на паскале!

299

326

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

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

ddddsfvxsf

Информатика

4,6(14 оценок)

Var a: real; k: byte; begin writeln('1 - l okp.'); writeln('2 - r okp.'); writeln('3 - d okp.'); readln(k); readln(a); write('s = '); case k of 1: writeln(sqr(a) / (4 * pi): 0: 2); 2: writeln(pi * sqr(a): 0: 2); 3: writeln(pi * sqr(a / 2): 0: 2); else writeln('? '); end; end.

эхпечальнокакто

Информатика

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

Const n=20; var a: array [1..n] of integer; i,k: integer; begin k: =0; for i: =1 to n do begin readln(a[i]); if a[i] mod 3=0 then k: =k+1; end; writeln(k); end.