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