Взависимости от введённого символа l, s, v программа должна вычислять длину окружности; площадь круга; объём цилиндра по заданному радиусу r. составить программу на паскале.

296

308

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

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

екатерина700

Информатика

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

Var l, s, v, symbol: string; p, so, vc: real; r, h: integer; begin writeln('введите r'); readln(r); writeln('введите h'); readln(h); l: = 'l'; // s: = 's'; // v: = 'v'; // можно конечно обойтись и без них writeln('введите символ'); readln(symbol); if symbol = l then begin p: = 2*pi*r; writeln('длина окружности = ',p); end; if symbol = s then begin so: = pi * sqr(r); writeln('площадь круга = ',so); end; if symbol = v then begin vc: = pi * sqr(r) * h; writeln('объем цилиндра = ',vc); end; readln; end;