Урок 13.1. Задача 11.

Primary tabs

Submitted by Dennis80 on Sat, 05/21/2022 - 17:45

Forums:

Урок 13.1. Задача 11.

Пользователь вводит числа до тех пор пока им не будет передан ноль. В ответ на каждое число программа должна сообщать чётное оно или нет.

var m : integer;

begin
  m := 1;
  while (m <> 0) do
  begin
    write('Enter an integer : ');
    readln(m);
    if (m mod 2 = 0) then
      writeln('This number is even')
    else
      writeln('This number is odd');
  end;
  readln();
end.
  • Log in to post comments
  • 934 reads
vedro-compota's picture

vedro-compota

Sat, 05/21/2022 - 18:16

сделать так, чтобы при передаче нуля вообще ничего не выводилось

_____________
матфак вгу и остальная классика =)

Dennis80

Sun, 05/29/2022 - 18:42 

var m : integer;

begin
  m := 1;
  while m <> 0 do
  begin
    write('Enter an integer : ');
    readln(m);
    if m = 0 then
      break
    else
      if (m mod 2 = 0) then
        writeln('This number is even')
      else
        writeln('This number is odd');
  end;
  readln();
end.
vedro-compota's picture

vedro-compota

Wed, 06/01/2022 - 20:59

засчитано

_____________
матфак вгу и остальная классика =)