В примере №2 есть код, перепишите его таким образом, чтобы сообщение "Игра окончена" выводилась, только если пользователь не угадал загаданное число.
Подсказка: используйте значение логического типа.
var i:integer;
begin
for i:=1 to 10 do
begin
writeln(777);
break;
end;
readln();
end.
-- таким образом, чтобы на 4-ом витке на экран было выведено число 777, а на 5-ом произошел выход из цикла (при этом строчку for i:=1 to 10 оставьте без изменений).
Переберите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.
var i:integer;
begin
for i:=1 to 100 do // задаем диапазон в заголовке цикла
if (i mod 7 = 0) then // каждое седьмое число - это значит числа, делящиеся на 7 без остатка, по порядку
write(i, ' '); // выводим значения счетчика, отвечающие условию
readln();
end.
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).
Урок 10.1 Задача 6
http://fkn.ktu10.com/?q=node/8612:
Выведите на экран, все нечетные числа, делящиеся на 3 нацело, лежащие в диапазоне от 35 до 117.
var i:integer;
begin
for i:=35 to 117 do // границы диапазона
if ((i mod 2) = 1) AND ((i mod 3) = 0) then // нечетные И делящиеся на 3 нацело
write(i, ' ');
readln();
end.