25 баллов!!!Помогите составить программу в паскале.Введите 3 числа, если первое число

25 баллов!!!Помогите составить программу в паскале.Введите 3 числа, если 1-ое число позитивно, то поменять числа их кубами, если третье число одинаково нолю, то отыскать их сумму.Срочно!

Задать свой вопрос
1 ответ
Var a, b, c: integer;
begin
write ('Введите через пробел 3 числа: ');
readln (a, b, c);
if (a gt; 0) then begin
   write (a * a * a, ' ');
   write (b * b * b, ' ');
   writeln (c * c * c)
end;
if (c = 0) then
  writeln (a + b)
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт