Напишите программку в Pascal , которая из 3-х введенных с клавиатуры

Напишите программку в Pascal , которая из 3-х введенных с клавиатуры чисел строит в квадрат положительные, а отрицательные оставляет без конфигурации.

Задать свой вопрос
1 ответ
Var
a, b, c: integer;
begin
readln(a, b, c); //вводим a b c
if a gt; 0 then writeln(a*a) //если a gt; 0 вывести квадрат a
else
writeln(a); //по другому вывести a
if b gt; 0 then writeln(b*b) //если b gt; 0 вывести квадрат b
else
writeln(b); //по другому вывести b
if c gt; 0 then writeln(c*c) //если c gt; 0 вывести квадрат c
else
writeln(c); //по другому вывести c
end.
Элина Роликова
да. могу прицепить скрин работы)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт