Var i,n:integer;
begin
n:=1;
i:=1;
write ('Числа не кратные 2 и 5: ');
while i<=8 do
begin
if (n mod 2 <> 0) and (n mod 5 <> 0) then
begin
write (n,' ');
i:=i+1;
end;
n:=n+1;
end;
end.
Ответ:
1)ВЕРНО 203+195=398=3982)ВЕРНО 156-56=100 100=100
Ответ: 1-Г, 2-В, 3-Д, 4-А, 5-Б
Объяснения.
1. Со значением х=1 входим в цикл, который должен выполняться, пока х меньше 10. Но х в теле цикла не изменяется, поэтому цикл будет бесконечным.
2. Со значением х=1 входим в цикл, который должен выполняться, пока х равен 1. В теле цикла х наращивается на 1, поэтому цикл даже второй раз не будет выполняться.
3. Конструкция 0<x<10 недопустима синтаксически.
4. Со значением х=1 пытаемся войти в цикл. В заголовке указано, что цикл выполняется, пока х отрицательный. Следовательно, цикл не будет выполняться вообще.
5. Со значением х=0 входим в цикл, который должен выполняться, пока х не превысит 5. В теле цикла х наращивается на 1, т.е. х будет принимать значения 1,2,3,4,5,6 и при х=6 цикл завершится. Получается, что тело цикла выполнится 6 раз.