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

Primary tabs

Submitted by kuznmax on Mon, 06/13/2022 - 12:26

Forums:

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

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

Решение:

program Project1;
var f : integer;

begin
  f := 1;
  while f <> 0 do
  begin
    write('Введите число : ');
    readln(f);
    if f = 0 then
      break
    else
      if (f mod 2 = 0) then
        writeln('Это число четное')
      else
        writeln('Это число не четное');
  end;
  readln();
end.
  • Log in to post comments
  • 939 reads
vedro-compota's picture

vedro-compota

Tue, 06/21/2022 - 20:36 

 if f = 0 then
      break
    else
      if (f mod 2 = 0) then
        writeln('Это число четное')
      else
        writeln('Это число не четное');

-- переписать без break, можно использовать if в неполной форме. В целом решение нормальное

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

kuznmax

Tue, 06/28/2022 - 16:10 

program Project1;
var f : integer;

begin
  f := 1;
  while f <> 0 do
  begin
    write('Введите число : ');
    readln(f);
    if f = 0 then
      exit;
      if (f mod 2 = 0) then
        writeln('Это число четное')
      else
        writeln('Это число не четное');
  end;
  readln();
end.
vedro-compota's picture

vedro-compota

Tue, 07/05/2022 - 20:15

нужно сделать, чтобы в случае если

f = 0

код ниже не работал:

      if (f mod 2 = 0) then
        writeln('Это число четное')
      else
        writeln('Это число не четное');

для этого достаточно внешнего условного оператора

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

kuznmax

Mon, 07/11/2022 - 11:00 

program Project1;
var f : integer;

begin
  f := 1;
  while f <> 0 do
  begin
    write('Введите число : ');
    readln(f);
    if f = 0 then
      else
      if (f mod 2 = 0) then
        writeln('Это число четное')
      else
        writeln('Это число не четное');
  end;
  readln();
end.
vedro-compota's picture

vedro-compota

Tue, 07/12/2022 - 21:00

переписать оператор условия к неполную форму по аналогии с задачей 15 урок 9 http://fkn.ktu10.com/?q=node/8539

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