Предмет: Информатика,
автор: ЛедиСовушка
найти и вывести на печать сумму всех натуральных чисел из промежутка от А до В, кратных 3 и 5 (А и В водятся с клавиатуры). паскаль
Ответы
Автор ответа:
0
var a,b,s,i:integer;
begin
write('a = ');readln(a);
write('b = ');readln(b);
s:=0;
for i:=a to b do
if (i mod 3 = 0) and (i mod 5 = 0) then s:=s+i;
writeln('s = ',s);
end.
Пример:
a = 4
b = 40
s = 45
begin
write('a = ');readln(a);
write('b = ');readln(b);
s:=0;
for i:=a to b do
if (i mod 3 = 0) and (i mod 5 = 0) then s:=s+i;
writeln('s = ',s);
end.
Пример:
a = 4
b = 40
s = 45
Похожие вопросы
Предмет: Алгебра,
автор: cycycivibvdkdkc
Предмет: Биология,
автор: evk228
Предмет: Литература,
автор: gylevata2005
Предмет: Математика,
автор: Мушидова
Предмет: Математика,
автор: artur0000