КТО РЕШИТ , ТОМУ 70 БАЛЛОВ!! составить программу нахождения суммы чисел , кратны...

July 2022 1 3 Report

КТО РЕШИТ , ТОМУ 70 БАЛЛОВ!! составить программу нахождения суммы чисел , кратных 3 в массиве М [1:12] (числа вводятся с клавиатуры)

Answers & Comments

антагонист

Verified answer

Program enot_peredelani;
Var a: array[1..100] of integer;
c,d:integer;
begin
d:=0;
writeln('введите элемент массива');
for c:= 1 to 12 do
begin
readln(a[c]);
if a[c] mod 3 = 0 then
d:=a[c]+d;
end;
writeln('сумма чисел кратных 3 ==> ',d);
end.

1 votes Thanks 1

антагонист всё работает как надо, я проерял

антагонист проверял

антагонист хотя можно чуток узменить

антагонист Program enot;
Var a: array[1..100] of integer;
c,d:integer;
begin
d:=0;
for c:= 1 to 12 do begin
writeln('введите элемент массива');
readln(a[c]);
if a[c] mod 3 = 0 then d:=a[c]+d;
end;
writeln('сумма чисел кратных 3 ==> ',d);
end.

антагонист без проблем

Answers & Comments

Verified answer

treugolnik kmn ravnobedrennyj s osnovaniem kn pryamaya av parallelna storone

v treugolnike avs ugol a pryamoj ugol v35 gradusov a najdite velichinu ugla s

opredelite temperaturu vody v sosude esli v nego nalili odnu kruzhku vody pri t

kto reshit tomu 55 ballov sostavit programmu nahozhdeniya summy chisel kratnym

kto reshit tomu 50 ballov sostavit programmu nahozhdeniya summy chisel kratny

рекомендуемые вопросы

Helpful Links

Helpful Social