помогитеее безотлагательно)обусловьте и выведите на экран количество натуральных чисел, наименьших 1000

помогитеее безотлагательно)
обусловьте и выведите на экран количество естественных чисел, меньших 1000 и делящихся на 5 и 7 сразу.
составить надобно программку на паскале

Задать свой вопрос
1 ответ

var

i,k:integer;

begin

k:=0;

for i:=35 to 1000 do 

if (i mod 5 = 0) and (i mod 7 = 0) then k:=k+1;

writeln (k);

end.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт