Составить программу вычисления суммы всех натуральных чисел меньше 100 и кратных b ( от1 до 100).
5-9 класс
|
Нужно составить 1- с циклом с пред условием, 2 - с циклом с пост условием
Aliya1251
13 июля 2014 г., 11:52:47 (9 лет назад)
Ballerballer
13 июля 2014 г., 13:11:29 (9 лет назад)
1)
var sum:integer;
a,b:integer;
begin
a:=1;
readln(b);
for a:=1 to 99 do begin
if a mod b = 0 then
sum:=sum+a;
end;
writeln(sum);
end.
2)
var sum:integer;
a,b:integer;
begin
a:=1;
readln(b);
repeat
if a mod b = 0 then
sum:=sum+a;
inc(a);
until a=100
writeln(sum);
end.
Ответить
Другие вопросы из категории
запишите названия базовых цветов в цветовой модели RGB
названияанглиские
Читайте также
Как составить на языке Паскаль программу вычисления суммы всех натуральных чисел, не
превышающих заданного натурального числа N?
Вообще с Паскалем у меня полный завал! Если знаете как, то напишите! Желательно с объяснениями, буду благодарна!
составьте алгоритм вычисления суммы всех натуральных чисел , не превышающих заданного натурального числа N. Проверьте алгоритм трассировкой. напишите
программу на паскале.
Выручите, пожалуйста! Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающий заданного натурального числа N. Проверьте алгоритм
трассировкой. Напишите программу на Паскале.
Вы находитесь на странице вопроса "Составить программу вычисления суммы всех натуральных чисел меньше 100 и кратных b ( от1 до 100).", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.