Я не совсем понял, что в данном случае означает величины
1) =2111224
1) =я в 4 классе
надеюсь хоть не много помогла
CONST N=5;
var a:array[1..N] of integer; min,i,col:integer;
begin
min:=56536;
col:=0;
for i:=1 to N do
<em>begin</em>
read(a[i]);
if a[i] < min then min:=a[i];
if a[i] mod 3 = 0 then inc(col);
<em>end;</em>
writeln('Минимальное значение в массиве = ',min);
write('Количество элементов кратных 3 = ',col);
<span>end.</span>
Достать все нужные вещи для урока.
Послушать учителя и его объяснения.
Приступить к рисованию.
Var a,p:integer;
begin
write('a = ');
readln(a);
a:=abs(a);
p:=1;
while a<>0 do
begin
p:=p*(a mod 10);
a:=a div 10;
end;
p:=p*p;
writeln('p = ',p);
end.
Пример:
a = 273
p = 1764