Предмет: Информатика,
автор: tanyamom
Найдите сумму всех чисел от 1 до k кратных 3
1000FORMSofFEAR:
Язык?
Ответы
Автор ответа:
1
program HelloWorld;var i,s,k:integer;begin k:=12; s:=0; for i:=1 to k do begin if(i mod 3=0) then s:=s+i; end; writeln(s);end.
Похожие вопросы
Предмет: Геометрия,
автор: SlavaMerloy22
Предмет: Биология,
автор: SKLLETIK
Предмет: Русский язык,
автор: adreevnaanya
Предмет: Математика,
автор: Эльвина12345678910