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

Primary tabs

Submitted by NikSo on Tue, 09/27/2022 - 09:28

Forums:

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

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

program Lesson9;
var a,b,c,d,i: integer;
begin
  i:=0;
  while (i<3)  do
  begin
    c:=b;
    b:=a;
    writeln('vvedite celoe chislo:');
    readln(a);
    i:=i+1;
  end;
writeln(c,' ',b,' ',a);
readln();
end.
  • Log in to post comments
  • 1504 reads
vedro-compota's picture

vedro-compota

Wed, 09/28/2022 - 19:38

добавить альтернативное решение - не использовать обмен

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

NikSo

Thu, 09/29/2022 - 14:39 

program Lesson9v2;
var a,b,c,d,i: integer;
begin
  i:=0;
  while (i<3)  do
  begin
    writeln('vvedite celoe chislo:');
    readln(a);
    i:=i+1;
    if (i=1) then
      b:=a
    else if (i=2) then
      c:=a;
  end;
  writeln(b,' ',c,' ',a);
  readln();
end.
vedro-compota's picture

vedro-compota

Wed, 10/05/2022 - 19:30

засчитано

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