1.Сколько раз будет выполнен oператop write? var i,j,s:intrger; begin S:=0; for i:=15 to 18 do begin s:s+1; write(i:4,s:5); end; end. 2.чему будет равно s после выполнения программы. var i,n,k,s,a:integer; begin S:=0; fo4 i:4 t...
1.Сколько раз будет выполнен oператop write?
var i,j,s:intrger;
begin
S:=0;
for i:=15 to 18 do
begin s:s+1;
write(i:4,s:5);
end;
end.
2.чему будет равно s после выполнения программы.
var i,n,k,s,a:integer;
begin
S:=0;
fo4 i:4 to 8 do if i mod 4=0 then s:==s+i;
writeln(s);
End.
Нужны трессировочные таблицы
Гость
Ответ(ы) на вопрос:
Не нашли ответ?
Похожие вопросы