Сообщество спортсменов проводит розыгрыш билетов на чемпионат мира по футболу. Чтобы принять участие, нужно угадать название популярной игры о футболе («FIFA»). Программа должна запрашивать название игры, пока не будет введено «FIFA» или пока не закончатся 3 попытки.

Если дан правильный ответ, программа печатает: «Поздравляем! Вы угадали с попытки № _» и завершает работу.

наливаем  воду в сосуд для 5 и переливаем в сосуд из 3-х литров в сосуде их 5-ти остаёться 2,переливаем в ведро,повторяем тоже самое ещё образом получаем 4 литра))

var a: array [1..30] of integer;

i: integer;

begin

  for i : = 1 to 30 do

  begin

        a[i]: = 5+5*0.05*(i-1)+2;

        writeln(a[i]);

  end.

end.

  1951 г - введен в эксплуатацию первый отечественный компьютер мэсм с хранимой программой, созданный под руководством академика с. а. лебедева.

qbasic

? "введите стоимость книг и сумму денег соответсвенно через запятую"

input a,b

if a=b then 1 else 2

1 ? "" : goto 10

2 if a> b then 3 else 4

3 a-b=c

? "не хватает денег,доплатите"; c : goto 10

4 b-a=r

? "ваша здача"; r

10 end