===== PascalABC.NET =====
begin
ReadArrInteger(3).Select(p -> p.IsEven ? p * p : p).Println(',')
end.
Замечание: В Паскаль данные разделяются пробелами, или переводами строки (клавиша Enter), поэтому вводить черз запятую не выйдет )))
Uses crt;var R:real;beginwriteln('Введите радиус круга в основании: ');readln(R);writeln('Площадь основания цилиндра= ',2*pi*sqr(R));end.
Ответ:
Объяснение:
Замечание: Там где int divisor = 1, должно быть 2