Пользователь вводит числа до тех пор пока им не будет передан ноль. В ответ на каждое число программа должна сообщать чётное оно или нет.
program u131z11;
var i, m: integer;
begin
repeat
writeln ('vvedite chislo');
readln(m);
if (m <>0)then
begin
if (m mod 2 = 0) then
writeln('chislo chetnoe')
else
writeln ('chislo nechetnor');
end;
until (m = 0);
end.
program u131z10;
var i, j, n, m: integer;
begin
writeln ('vvedite chislo');
readln(m);
writeln ('vvedite chislo');
readln(n);
for i:=1 to m do
begin
for j:= 1 to n do
begin
if (m mod 2 = 0) then
write (j,' ')
else
write (j/2,' ');
end;
end;
readln();
end.
M раз выведете на экран числа от 1 до N с помощью вложенных циклов. Так чтобы в консоли было:
11......NN}M раз
program u131z9;
var i, j, n, m: integer;
begin
writeln ('vvedite chislo');
readln(m);
writeln ('vvedite chislo');
readln(n);
for i:=1 to m do
begin
for j:= 1 to n do
write (j,' ');
writeln();
end;
readln();
end.
В примере №2 есть код, перепишите его таким образом, чтобы сообщение "Игра окончена" выводилась, только если пользователь не угадал загаданное число.
Подсказка: используйте значение логического типа.
В примере №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 до введённого пользователем.