Информатика: Во free pascal надо решить, я не могу понять где ошибка.

lenkindom1

02.07.2021 21:14

Информатика

Есть ответ 👍

Во free pascal надо решить, я не могу понять где ошибка.

237

458

Посмотреть ответы 1

Ответы на вопрос:

ЛяЛлля

Информатика

4,4(66 оценок)

Program chisla; var a, b, c, d: integer; begin writeln ('введите a: '); readln (a); writeln ('введите b: '); readln (b); c: =sqr(a+b); d: =sqr(a)+sqr(b); writeln ('квадрат суммы: ', c); writeln ('сумма квадратов: ', d); end.