Даны четыре целых числа.Определить сумму тех из них,которые кратны трём.Составить программу в паскале.Заранее спасибо!!!
Answers & Comments
ejevika33
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.
Answers & Comments
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.