Информатика, опубликовано 2018-08-22 23:54:15 by Гость
Даны четыре целых числа.Определить сумму тех из них,которые кратны трём.Составить программу в паскале.Заранее спасибо!!!
Ответ оставил Гость
Uses crt;
var a:array[1..4] of integer;
sum,i:integer;
begin
clrscr;
writeln(Введите 4 целых числа:);
for i:=1 to 4 do
begin
read(a[i]);
if a[i]mod 3=0 then sum:=sum+a[i];
end;
writeln(Сумма чисел, кратных трем: ,sum);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на