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

Primary tabs

Submitted by alexander263 on Sun, 10/24/2021 - 12:05

Forums:

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

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

program project1;
var numb:integer;

begin
  write('Vvedite chislo: '); readln(numb);
  while(numb>0)do
    begin
      if (numb mod 2=0)then
        write('Chislo ', numb, ' chetnoe!')
      else
        write('Chislo ', numb, ' nechetnoe!');
        writeln();
        write('Vvedite chislo: '); readln(numb);
    end;
  readln();
end.
  • Log in to post comments
  • 2153 reads
vedro-compota's picture

vedro-compota

Sun, 10/24/2021 - 12:30

форматирование

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

vedro-compota's picture

vedro-compota

Sun, 10/24/2021 - 12:41 

else
        write('Chislo ', numb, ' nechetnoe!');
        writeln();
        write('Vvedite chislo: '); readln(numb);

-- неправильное форматирование

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

alexander263

Sun, 10/24/2021 - 12:42 

program project1;
var numb:integer;
 
begin
  write('Vvedite chislo: '); readln(numb);
  while(numb>0)do
    begin
      if (numb mod 2=0)then
        write('Chislo ', numb, ' chetnoe!')
      else
        write('Chislo ', numb, ' nechetnoe!');
      writeln();
      write('Vvedite chislo: '); readln(numb);
    end;
  readln();
end.
vedro-compota's picture

vedro-compota

Sun, 10/24/2021 - 12:45

засчитано

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