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

Primary tabs

Submitted by jl8qy9kd_pro on Sat, 07/31/2021 - 10:22

Forums:

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

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

var i :integer;
begin
  repeat
    write('vvedi chislo ');
    readln(i);
  until(i = 0);
readln();
end.
  • Log in to post comments
  • 2392 reads
vedro-compota's picture

vedro-compota

Tue, 08/03/2021 - 18:47

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

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

jl8qy9kd_pro

Fri, 08/06/2021 - 11:37 

var i :integer;
begin
  i := 1;
  while(i > 0) do
    begin
      write('vvedi chislo ');
      readln(i);
      if(((i mod 2) = 0) and (i <> 0)) then // исключение итерации при 0
        writeln('chetnoe')
      else if (i <> 0) then
        writeln('ne chetnoe');
    end;
  readln();
end.
vedro-compota's picture

vedro-compota

Sun, 08/08/2021 - 13:38 

 (i <> 0))

дублирование условия

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

jl8qy9kd_pro

Sun, 08/08/2021 - 18:31 

var i :integer;
begin
  i := 1;
  while(i > 0) do
    begin
      write('vvedi chislo ');
      readln(i);
      if((i mod 2) = 0) then // исключение итерации при 0
        writeln('chetnoe')
      else if (i <> 0) then
        writeln('ne chetnoe');
    end;
  readln();
end.
vedro-compota's picture

vedro-compota

Sun, 08/29/2021 - 13:07

while(i > 0) do

уточнить условие

и в целом перепроверь

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

jl8qy9kd_pro

Fri, 09/03/2021 - 12:46 

var i :integer;
begin
  i := 1;
  repeat
    write('vvedi chislo ');
    readln(i);
    if (i = 0) then
      break;
    if((i mod 2) = 0) then
      writeln('chetnoe')
    else
      writeln('ne chetnoe');
  until (i = 0);
  readln();
end.
vedro-compota's picture

vedro-compota

Sun, 09/05/2021 - 13:05

решение засчитано

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