Предмет: Информатика,
автор: Александр1229
Паскаль. Вычислить сумму чисел, оканчивающихся на 3, на отрезке [13,75], Вычислить сумму чисел кратных 3 на отрезке [13,75]. Сравнить полученные суммы и вывести сообщение о том что больше
Ответы
Автор ответа:
1
var i, sum1, sum2: integer;
begin
sum1:= 0;
sum2:= 0;
for i:= 13 to 75 do
if i mod 10 = 3 then
sum1:= sum1 + i
else if i mod 3 = 0 then
sum2:= sum2 + i;
if sum1 > sum2 then writeln("Первая сумма больше") else
if sum2 > sum1 then writeln("Вторая сумма больше");
end.
Похожие вопросы
Предмет: Литература,
автор: friend22
Предмет: Українська мова,
автор: lora2023
Предмет: Математика,
автор: dymchenkomasha
Предмет: Математика,
автор: mausymzhan
Предмет: Биология,
автор: cat360