Var
i,N,A,k:integer;
Begin
k:=0;
Write('N = ');Read(N);
For i:= 1 to N do
Begin
Read(A);
if (A mod 10 = 8) then k:=k+1;
End;
WriteLn(k);
End.
80 бит
если нету ни пробелов, ни точек, ни тере
6.3)
7. 1)
8.-
9. 1)
10. 1)
Program n1;
var a,sum,i: integer;
begin
sum:=0;
for i:=1 to 10 do
begin
readln(a);
if a mod 10=3 then sum:=sum+a;
end;
write(sum);
end.
Если (условие) то (действие) если значение противоречит этому то (др <span>действие) кв (конец ветвления). </span>