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

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

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

Примечание: в одном витке цикла должен быть только 1 readln()

Решение:

var a,b,c,i,s:integer;
begin
  i:=1;
  while (i<=3) do
  begin
    writeln('vvedite chislo');
    readln(s);
    if i=1 then a:=s;
    if i=2 then b:=s;
    if i=3 then c:=s;
    i:=i+1;
  end;
  writeln('Otvet = ',a,', ',b,', ',c);
  readln();
end.

Консоль:

vvedite chislo
5
vvedite chislo
9
vvedite chislo
2
Otvet = 5, 9, 2
vedro-compota's picture

    if i=1 then a:=s;
    if i=2 then b:=s;
    if i=3 then c:=s;

-- i не может быть равно одновременно трем значениям, используйте else, чтобы сокраить число проверок
--

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

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

засчитано

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