Meat
5 год назад
1.Некто составил программу ,в который определяеться количество чисел в интервалеот 200 до 500 которые деляться на 14 .Он допустил ошибку. Исправте их и запишите верный вариант программыprogram Программа_2;var n,z:integer;beginz=:0 ; n=:100 ;for n:=100 to 1000 do beginif (n div 14 =0) then writeln(n);z:=z+1;end;writeln(z);end.2.Определите ,что будет напечатано в результатевыполнения следующего алгоритма записанного в паскале.Укажите ,Как узнать сколько раз выполниться цикл тела .Var z,n,i:integer;Beginz:=30;for n:=8 to 15 do beginif n > 10 then z:=z-2*nelse z:=z+n; end;writeln(z)end.
ОТВЕТЫ
Эдуард
Oct 24, 2020
1)
var n,z:integer;
begin
z:=0;
for n:= 200 to 500 do begin
if n mod 14 = 0 then
z:=z+1;
end;
writeln(z);
end.
2)
-73, выполнится 15 - 8 + 1 = раз
var n,z:integer;
begin
z:=0;
for n:= 200 to 500 do begin
if n mod 14 = 0 then
z:=z+1;
end;
writeln(z);
end.
2)
-73, выполнится 15 - 8 + 1 = раз
697
Смежные вопросы:
