ПОМОГИТЕ ПОЖАЛУЙСТА С ДВУМЯ ЗАДАЧАМИ НА ЯЗЫКЕ PASCAL: 1) даны 2 числа…

Question

ПОМОГИТЕ ПОЖАЛУЙСТА С ДВУМЯ ЗАДАЧАМИ НА ЯЗЫКЕ PASCAL: 1) даны 2 числа, заменить второе число нулем, если оно не меньше первого и оставить егопрежним, если это не так. 2) Даны 3 числа, возвести в квадрат те из них, значения которых не отрицательны, а отрицательные оставить без изменений

Answer 1

34

worker

28 февраля 2023

1) vara,b: integer; read (a); read (b); if b>=a thenb: =0; write (a, ', b); end.2) vara,b,c: integer; read (a); read (b); read (c); if a>0 thena: =a*a; if b>0 thenb: =b*b; if c>0 thenc: =c*c; write (a, ', b, ', c); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: