KsyClab
09 июля 2013 г., 9:06:13 (10 лет назад)
1. Var s,i:integer;
Begin
S:=0;
For i:=1 to 1000 do
If (i mod 5<>0)and (i mod 7 <>0) Then s:=s+1;
Writeln(s);
Readln;
end.
Ответить
Другие вопросы из категории
прилетели наши космонавты в далекую страну и разговорились с одним отцом .Много детей рассказывал он: у меня 33 сына и 50 дочерей а всего детей 113 а
годиков мне соответственно 101 . в какой системе счисления живут обитатели этой планеты?
СРОЧНО НАДО! школьники написали на доске числа 243, 729 и 324. Затем ребята произвольным образом вычитали из написанных чисел некоторое число, пока
результаты вычитания не стали одинаковыми. Какое число школьники могли вычитать, чтобы условие задачи выполнялось? Варианты: 1) 1 ; 2) 3; 3)9; 4) 27; 5) 81
Читайте также
ЗАДАЧА ДЛЯ PASCAL ABC: В группе 30 учеников. За выполненный тест они могут
получить от 5 до 15 баллов (Сгенерить случайные числа
Привет, решите пожалуйста задачу в pascal abc
Смотрим фотку!
Спасибо заранее!
Срочно! Pascal ABC, написать две программы по циклическим алгоритмам и массивам. Зараннее спасибо! См. приложенные скриншоты.
p.s.
Где П- произведение.
среди чисел от -10 до 50 найти кол-во чисел оканчивающихся на 8.
Программа Pascal ABC
Вы находитесь на странице вопроса "pascal abc", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.