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

Primary tabs

Submitted by nglag on Thu, 07/15/2021 - 16:41

Forums:

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

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

program U11z9;
var a, b, c, count: integer;
begin
     count:= 1;
     while (count<=3) do
     begin
         c:= b; // записываем предыдущие значения в переменные
         b:= a; // в таком обратном порядке  c = b = a;
         writeln('Vvedite cheloe chislo:');
         readln(a);
             writeln(a, ' ', b, ' ', c);
             // a - последняя введенная
             // b - предыдущая
             // c - предпредыдущая
             count:=count+1;
      end;
  writeln('The end!');
readln();
end.
  • Log in to post comments
  • 1439 reads
vedro-compota's picture

vedro-compota

Thu, 07/15/2021 - 20:16

обмен не нужен, используем значение счетчика, чтобы понять в какую переменную сохранять значение

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

nglag

Sun, 07/18/2021 - 15:19

Решил после просмотра видео подсказки. Попробовал решить с помощью цикла while:

program U11z9;
var a, b, c, count: integer;
begin
     count:=0;
     while(count < 3) do
     //for count:= 1 to 3 do
     begin
         writeln('Vvedite cheloe chislo:');
         if(count =1) then
             readln(a)
         else if(count =2) then
             readln(b)
         else
             readln(c);
         count:=count+1;

     end;
     writeln(a, ' ', b, ' ', c);
     writeln('The end!');
     readln();
end

.

vedro-compota's picture

vedro-compota

Thu, 07/22/2021 - 20:23

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

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