Program summa;
Uses Crt;
Var S,a,n,i:integer;
Begin
Write('vvod kol-va chisel=');
Readln(n);
If n<=100 then
Write('vvod chisel=');
S:=0;
for i:=1 to n do begin
read(a);
If ((a mod 3)=0) and ((a mod 10)=2) then
S:=S+a;
End;
Writeln('vivod summi=',S);
readkey;
End.
что не так в этой программе? исправьте пж
Please enter comments
Please enter your name.
Please enter the correct email address.
You must agree before submitting.

Answers & Comments


Copyright © 2024 SCHOLAR.TIPS - All rights reserved.