1)
var b,i:integer;
begin
b:=0;
for i := 100 to 999 do
if (i mod 17) = 0 then b:=b+i;
writeln (b);
end.
2)
var b,c:integer;
begin
b:=1;
for c:= 1 to 15 do
b:=b*c;
writeln (b);
end.
Ответ:
3,частично 1
Объяснение:
Ибо структура у всех записей одна и та же
=$C$5+F6
Я проверила в программе, должно быть так
Var a,b,c:integer;
begin
readln(a, b);
c:=a+b;
writeln(c);
end.
Var
x, y, z : real;
begin
read (x, y, z);
if (x > 0) then x := sqr (x);
if (y > 0) then y := sqr (y);
if (z > 0) then z := sqr (z);
write (x, ' ', y, ' ', z);
end.