Var a:array[1..100]of integer;
nol,chet,nechet,i,n:integer;
begin
readln(n);
for i:=1 to n do begin
readln(a[i]);
if (a[i] mod 2=0)and(a[i]<>0) then chet:=chet+1;
if (a[i] mod 2=1) then nechet:=nechet+1;
if a[i]=0 then nol:=nol+1;
end;
writeln('четных :',chet,' ','нечетных :',nechet,',' ',нулевых :',nol);
<span>end.</span>
2021 это 202,1*10 или 404,2*5 (вариантов бесчисленно много)
3000 это 300*10 или 30000/10
545 это 109*5 или 5450/10
X=432
Пример на VBA Excel
Код программы можно посмотреть нажав Alt+F11
{ Использован код горизонтальной табуляции
09 для выравнивания вывода }
var
a,b,h,x:real;
begin
Write('введите a,b,h: '); Read(a,b,h);
x:=a;
while x<=b do begin
Writeln(x,#09,#09,4*sin(x*x)+cos(x));
x:=x+h
end
end.
Пример
введите a,b,h: -2.15 1.7 0.38
-2.15 -4.53120848610505
-1.77 -0.163118638139122
-1.39 3.92156008975769
-1.01 3.9405021385098
-0.63 2.35427225489945
-0.25 1.21874969308017
0.13 1.05915867588807
0.51 1.90145326606337
0.89 3.47673114723651
1.27 4.29273595805526
1.65 1.54860630059752
Хочу Вас огорчить, самостоятельно будет сложно справиться. Лучший вариант отдать мастеру