profile
Опубликовано 6 лет назад по предмету Информатика от Nastya22624

определите и выведите на экран количество трехзначных чисел, которые делятся одновременно на 3,5,7

в паскале авс

ПОМОГИТЕЕЕЕЕ!!!

  1. Ответ
    Ответ дан tamerlan1011

    Program zadanie1;

    var

    i:integer;

    begin

    for i:=100 to 999 do
    Begin
    if ( i mod 3 = 0 ) and ( i mod 5 = 0 ) and ( i mod 7 = 0 )
    then writeln(i);
    end;

    end.

Самые новые вопросы