Что получится при выполнении программы...
Program pr8;
Var a, c, d; vce: integer;
begin
a:=9;
c:=a mod 2+2;
d:=sqr (c) +2;
vce:=a+c+d;
writeln ('Сумма равна-', vce);
end.
Program pr8;
Var a, c, d; vce: integer;
begin
a:=9;
c:=a mod 2+2;
d:=sqr (c) +2;
vce:=a+c+d;
writeln ('Сумма равна-', vce);
end.
More Questions From This User See All
Answers & Comments
а = 9, ввод с клавиатуры
с = 1, 9 разделить на 4 остаток 1
d = 3, корень из 1 — 1 и + 2 = 3
и ихния сумма выводится на экран