урок 13.1 задача 11

Primary tabs

isaac_fan's picture
Submitted by isaac_fan on Tue, 06/14/2022 - 14:05

Forums:

урок 13.1

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

var i:integer;
begin
  i:=1;
  repeat
    writeln('ведите любое целое число: ');
    readln(i);
    if ((i mod 2)=0) then
      writeln('это чётное число !');
    if ((i mod 2)=1) then
      writeln('число не чётное !');

  until(i=0);
  readln();
end.
  • Log in to post comments
  • 713 reads
vedro-compota's picture

vedro-compota

Tue, 06/21/2022 - 21:04 

if ((i mod 2)=0) then
      writeln('это чётное число !');
    if ((i mod 2)=1) then
      writeln('число не чётное !');

Могут ли эти проверки обе приводить к выполнению ветки then в одном и том же витке?
Если нет -- оптимизировать по примеру задача 11 из урока 9 http://fkn.ktu10.com/?q=node/8539

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

isaac_fan's picture

isaac_fan

Mon, 08/29/2022 - 21:05

могут

isaac_fan's picture

isaac_fan

Mon, 08/29/2022 - 21:05 

var i:integer;
begin
  i:=1;
  repeat
    writeln('ведите любое целое число: ');
    readln(i);
    if ((i mod 2)=0) then
      writeln('это чётное число !');
   else
      writeln('число не чётное !');

  until(i=0);
  readln();
end.