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

Primary tabs

Submitted by Andrey2784 on Tue, 12/13/2022 - 15:35

Forums:

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

Пользователь вводит последовательно три произвольных целых числа. Заведите три переменных и сохраните эти числа в эти переменные. Пользовательский ввод обрабатывайте в цикле.
В решении:

в одном витке цикла должен быть только 1 readln()
не использовать "обмен" (т.е. не присваивать одной переменной значение другой)

var i,a,b,c: integer;
begin
   for i:=1 to 3 do
   begin
     writeln('vvedite luboe chislo');
     if i=1 then
       begin
        readln(a);
        writeln('a=', a);
       end;
     if i=2 then
       begin
        readln(b);
        writeln('b=', b);
       end;
     if i=3 then
       begin
        readln(c);
        writeln('c=', c);
       end;
   end;
readln();
end.
  • Log in to post comments
  • 570 reads
vedro-compota's picture

vedro-compota

Sun, 12/25/2022 - 13:25

смотреть видео, уменьшить количество сравнений

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

Andrey2784

Tue, 01/03/2023 - 13:14 

var i,a,b,c: integer;
begin
   for i:=1 to 3 do
   begin
     writeln('vvedite luboe chislo');
     if i=1 then
       readln(a)
     else if i=2 then
       readln(b)
     else
       readln(c);
   end;
writeln(a, '',b,'',c);
readln();
end.