Помогите ПОЖАЛУЙСТА! 2 номера по информатике, очень прошу

0 голосов
24 просмотров

Помогите ПОЖАЛУЙСТА!
2 номера по информатике, очень прошу


image
image

Информатика (22 баллов) | 24 просмотров
Дан 1 ответ
0 голосов

Ох, так уж и быть...
Д.б. в программе:(Обрати внимание на отступы и большие/маленькие буквы в переменных!!!)

Var a: integer; b, c, x: real;
Begin
a:=7;
b:=3,2;
c:=a+b;
WriteLn('Сумма = ', c{английская!!!});
c:=c/2;
x:=a-c;
WriteLn('x = ', x, '; квадрат x = ', x*x);
End.


На все вопросы почему заменил сумма <- summa и почему присваивания поставил в разные строки отвечай: "Так легче читается программа!!!" <br>

На экране будет:

Сумма = 10,2
x = 1.9; квадрат x = 3.61

(277 баллов)
0

спасибо

0

большое))