Напишите программу, которая...

Тема в разделе "Информатика", создана пользователем Черный Ангел, 8 фев 2010.

  1. Черный Ангел

    Черный Ангел New Member

    Напишите программу, которая в последовательности натуральных чисел находит наименьшее число, кратное3.
     
    Черный Ангел, 8 фев 2010
    #1
  2. зенюшка

    зенюшка New Member

    Var
    a,b:integer;
    begin
    b:=30001;
    read(a);
    while a<>0 do
    begin
    if (a mod 3 = 0) and (a<b) then b:=a;
    read(a);
    end;
    write(b);
    end.
     
    зенюшка, 8 фев 2010
    #2

Поделиться этой страницей

Наша группа