Предмет: Информатика,
автор: artem12431
Составьте блок-схему алгоритма и программу вычисления суммы всех трехзначных чисел, кратных 4
Нужна только блок схема
uplmtq:
Как числа вводятся? Массив, while? Больше конкретики.
begin
var i,s:integer;
s:=0;
For i:=100 to 999 do
if i mod 4 = 0 then inc(s,i);
write('Сумма трехзначных чисел, кратных 4=',s);
readln
end.
var i,s:integer;
s:=0;
For i:=100 to 999 do
if i mod 4 = 0 then inc(s,i);
write('Сумма трехзначных чисел, кратных 4=',s);
readln
end.
Ответы
Автор ответа:
2
Ответ в прикрепленном скриншоте :)
Объяснение:
начало - начало программы
s := 0 - переменная s = 0
i := 100, 999, 1 - цикл for, i := 100, идём до 999 с шагом в 1
i mod 4 -
- нет - возвращаемся к циклу;
- да - s := s + i + возвращаемся к циклу.
s - выводим значение переменной s
конец - конец программы
Приложения:
Интересные вопросы
Предмет: Русский язык,
автор: alyaasheylova
Предмет: Русский язык,
автор: aytackerimova
Предмет: Математика,
автор: natalgolen
Предмет: Алгебра,
автор: vichkasnegirev
Предмет: Литература,
автор: nastenka082004