Написать программу которая...

Тема в разделе "Информатика", создана пользователем theOS, 2 апр 2010.

  1. theOS

    theOS New Member

    Написать программу которая определяет сколько чисел кратных 15 находится в диапозоне от 150 до550
     
    theOS, 2 апр 2010
    #1
  2. Николай_21Day

    Николай_21Day New Member

    Program MyHelloWorld(output);
    var i, s : integer;
    begin
        s:=0;
        for i := 150 to 550 do begin
            if i mod 15 = 0 then
                s:= s + 1;
        end;
        writeln('Чисел: ', s);
    end.
     
    Николай_21Day, 2 апр 2010
    #2

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

Наша группа