В примере №2 есть код, который описывает программу угадывания числа с трех попыток. Перепишите этот код так, чтобы:
1. Можно было бы задать угадываемое число (пусть его вводит пользователь)
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, count:integer;
begin
count:=0;
for i:=1 to 100 do
begin
count:=count+1;
if (count = 7) then
begin
write(i, ' ');
count:=0;
end;
end;
readln();
end.
Выведите на экран, все числа делящиеся на 3 из дипазона от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.
var i:integer;
begin
for i:=35 to 117 do
if (i mod 3 = 0) then
write(i, ' ')
else if ((i mod 2 = 1) and (i >= 45) and (i <= 99)) then write(i, ' ');
readln();
end.
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.
var i:integer;
begin
for i:=35 to 117 do
if (i mod 2 = 0) then
if ((i < 45) or (i > 99)) then
write(i, ' ')
else
else if ((i >= 45) and (i <= 99)) then write(i, ' ');
readln();
end.