Статистика
Всего в нашей базе более 4 327 657 вопросов и 6 445 963 ответов!

найти сумму чисел от 50 до 100, кратных 2 и 3. турбо паскаль!

5-9 класс

иришка20011 09 февр. 2014 г., 21:18:07 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
зЗайка
09 февр. 2014 г., 22:17:57 (10 лет назад)

var

  i, s: integer;

 

begin

  s:= 0;

  for i:= 50 to 100 do

    if (i mod 2 = 0) and (i mod 3 = 0) then s:= s + i;

  writeln(s);

  readln;

end. 

Ответить

Читайте также

Выполнить в программе Geany.Паскаль.Пожааалуйста) Задача 1. Вывести на экран последовательность из N чисел (N задаётся пользователем): 5, -10,

15, -20,
25, …
Использовать цикл for и условие в нём.

Задача 2.Найти сумму чисел от 1 до 100, кратных 7. Кратность находим при помощи операции mod

Найти сумму чисел от 1 до 100.Вычислить QBASIC

что-то вообще не могу ее решить (((( вроде легкая, училка все-равно говорит неправильно-неправильно.Последний шанс остался(((

1)Составить программу нахождения суммы квадратов чисел от 25 до 125.

2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n



Вы находитесь на странице вопроса "найти сумму чисел от 50 до 100, кратных 2 и 3. турбо паскаль!", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.