Дан радиус r окружности по желанию пользователя вычислить диаметр d окружности длину c окружности или площади s (в языке паскаль )

209

399

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

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

ladaponomareva

Информатика

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

//pascalabc.net 3.2 сборка 1318 var r: real; c: char; begin readln(r); writeln('диаметр, длина c окружности или площадь? d/l/s'); repeat readln(c); until (c='l') or (c='s') or (c='d'); case c of 'l': writeln(6,28*r); 's': writeln(3,14*sqr(r)); 'd': writeln(r*2); end; end. пример ввода: 3 d пример вывода: 6