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

Составьте программу для нахождения количества чисел, кратных 3
и 5 в интервале от 300 до 1000.

  1. Ответ
    Ответ дан Аккаунт удален
    var i,k:integer;
    begin
    k:=0;
    for i:=300 to 1000 do
    begin
    if (i mod 3=0) and (i mod 5=0) then
    begin
    k:=k+1;
    end;
    end;
    writeln(k);
    end.