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

Primary tabs

Submitted by MrDeadSummer on Sun, 07/25/2021 - 18:21

Forums:

Пользователь вводит последовательно три произвольных целых числа. Заведите три переменных и сохраните эти числа в эти переменные. Пользовательский ввод обрабатывайте в цикле.
Примечание: в одном витке цикла должен быть только 1 readln()

var  a, b, c, d: integer;
begin
  readln(a);
  while (a <> 0) do
        begin
        b := a;
        if (b = a) then
        writeln(b);
        readln(a);
        c := a;
        if (c = a) then
        writeln(c);
        readln(a);
        d := a;
        if (d = a) then
        writeln(d);
        break;
        end;
readln();

end.
  • Log in to post comments
  • 962 reads
vedro-compota's picture

vedro-compota

Thu, 07/29/2021 - 20:36

неверное форматирование см http://fkn.ktu10.com/?q=node/8763 и http://fkn.ktu10.com/?q=node/11378

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

MrDeadSummer

Thu, 07/29/2021 - 22:09 

var  a, b, c, d: integer;
begin
  readln(a);
  while (a <> 0) do
    begin
      b := a;
      if (b = a) then
        writeln(b);
        readln(a);
        c := a;
      if (c = a) then
        writeln(c);
        readln(a);
        d := a;
      if (d = a) then
        writeln(d);
        break;
    end;
readln();

end.