Информатика, опубликовано 2018-08-22 20:28:35 by Гость
Pascal. Найти сумму целых положительных чисел, больших 30 и меньших 100, кратных трем.
Ответ оставил Гость
Var summ: integer;
begin for var i:=30 to 100 do begin if (i mod 3) = 0 then summ := summ + i; end; writeLn(сумма = , summ);end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.