1.Некто составил программу ,в который определяеться количество чисел в интервале от 200 до 500 которые деляться на 14 .Он допустил ошибку. Исправте их и запишите верный вариант программы
program Программа_2;
var n,z:integer;
begin
z=:0 ; n=:100 ;
for n:=100 to 1000 do begin
if (n div 14 =0) then writeln(n);
z:=z+1;
end;
writeln(z);
end.
2.Определите ,что будет напечатано в результате выполнения следующего алгоритма записанного в паскале.Укажите ,сколько раз выполниться цикл тела .
Var z,n,i:integer;
Begin
z:=30;
for n:=8 to 15 do begin
if n > 10 then z:=z-2*n
else z:=z+n; end;
writeln(z)
end.
program Программа_2;
var n,z:integer;
begin
z=:0 ; n=:100 ;
for n:=100 to 1000 do begin
if (n div 14 =0) then writeln(n);
z:=z+1;
end;
writeln(z);
end.
2.Определите ,что будет напечатано в результате выполнения следующего алгоритма записанного в паскале.Укажите ,сколько раз выполниться цикл тела .
Var z,n,i:integer;
Begin
z:=30;
for n:=8 to 15 do begin
if n > 10 then z:=z-2*n
else z:=z+n; end;
writeln(z)
end.
More Questions From This User See All
Answers & Comments
var n,z:integer;
begin
z:=0;//z=:0 знак присваивания выглядит вот так ":="
//n=:100 - не нужно иницилизировать параметр цикла.
for n:= 200 to 500 do begin//for n:=100 to 1000 do begin - цикл должен идти от 200 до 500, а не со 100 до 1000
if n mod 14 = 0 then //if (n div 14 =0) then - div - Целая часть от деления, а mod - остаток.
z:=z+1;//writeln(n); - Выводить n не нужно совсем, а вот увеличить счетчик не помешает
//z:=z+1;- а вот тут уже лишнее
end;
writeln(z);
end.
2)
-73, выполнится 15 - 8 + 1 = 8 раз