Определите, чему равно s:
1)s: =5;
for i: =1 to 3 do
s: =s+5*1;
writeln(s);
2)s: =0; a=1;
for k: =12 to 15 do
begin
s: =s+a;
a: =a+2;
end;
writeln(s);
3)s: =0;
for k mod 2=0
then s: =s+9;
writeln(s);

vika1410057    1   17.12.2019 16:21    1