1.некто составил программу ,в который определяеться - вопрос №86201841 от А00000а 10.03.2021 08:26

Question

Информатика: 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:

А00000а · Answer

1)var n,z:integer;beginz:=0;//z=:0 знак присваивания выглядит вот так := //n=:100 - не нужно иницилизировать параметр цикла.for n:= 200 to 500 do begin//for n:=100 to 1000 do begin - цикл должен идти от 200 до 500, а не со 100 до 1000if 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 раз...