Информатика, опубликовано 2018-08-22 21:18:22 by Гость
Pascal: Cума квадратів всіх двозначних непарних чисел, які діляться на 3 та їх кількість
Ответ оставил Гость
Program skv;
var
s, c, i: integer;
begin
c := 0;
s := 0;
for i := 10 to 99 do
if (i mod 2 = 1) and (i mod 3 = 0) then
begin
s := s + i;
c := c + 1;
end;
writeln(Сума: , s);
writeln(Кількість: , c);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.