Найти сумму всех трехзначных чисел кратных К
10-11 класс
|
Aissulu
22 окт. 2016 г., 4:20:22 (7 лет назад)
Natalka1234
22 окт. 2016 г., 5:56:25 (7 лет назад)
i,k,s:integer;
read(k);
s=0
for i=100 to 999 do begin
if i mod k = 0 then
s=s+i;
end;
write(s);
end.
настик2011
22 окт. 2016 г., 6:40:11 (7 лет назад)
var i,K,S:real;
begin
write('vvedite K = ');
readln(K);
S=0
for i=100 to 999 do
begin
if i mod K = 0 then
S=S+i;
end;
write('S = ',S);
readln;
end.
Ответить
Другие вопросы из категории
паскаль линейное программирование
программа расчета среднего арифметического квадратных корней трех чисел
какую часть экрана займет изображение файла типа bmp объемом 3Мбайт,созданного при глубине цвета равной 32 бита ,при разрешении экрана 512*768 точек и
качестве цветопередачи 32 бита
Составить алгоритм для решения задачи: Книга стоит d
руб., журнал h руб. У покупателя денег S руб. Хватит ли их на 3 журнала и 2
книги?.
Читайте также
Даны два целых числа А и В (А<В). Найти сумму всех целых чисел от А до В включительно Входные данные: ввести два целых числа А,В (1<=A,
B<=100).
Выходнфе данные: вывести сумму всех целых чисел от А до В включительно.
Можно, пожалуйста, с объяснением.
1) Задано положительное число A. Найти сумм всех четных чисел в интервале от 1 до A. Число А может иметь дробную часть.
2) Задано целое положительное число А и В. Найти квадратные корни целых чисел в интервале от А до В. Замечание: A<B
Паскаль:
Найти сумму и количество всех трехзначных чисел, кратных 100
Вы находитесь на странице вопроса "Найти сумму всех трехзначных чисел кратных К", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.