Составить БЛОК-СХЕМЫ к задачам: Является ли трехзначное число палиндром?
Даны радиус круга и сторона квадрата. У какой фигуры площадь больше?

Подсчитаем сколько приходится число 2 в факториал 238

\begin{gathered}[\dfrac{238}{2}]+[\dfrac{238}{4}]+[\dfrac{238}{8}]+[\dfrac{238}{16}]+[\dfrac{238}{32}]+[\dfrac{238}{64}]+[\dfrac{238}{128}]=119+59+29+\\ \\ +14+7+3+1=232\end{gathered}[2238]+[4238]+[8238]+[16238]+[32238]+[64238]+[128238]=119+59+29++14+7+3+1=232

В разложении на простые множители 238! имеется ровно 232 двоек.

Теперь подсчитаем кол-во "5" в факториал 238

[\dfrac{238}{5}]+[\dfrac{238}{25}]+[\dfrac{238}{125}]=47+9+1=57[5238]+[25238]+[125238]=47+9+1=57

Всего пятерок 57 штук

238!=2^{232}\cdot 5^{57}\cdot A=10^{57}\cdot 2^{175}\cdot A238!=2232⋅557⋅A=1057⋅2175⋅A , где А - множитель.

ответ: 57 нулей.

program spk;

var i,s,k:integer;

p:real;

a:array [1..10] of integer;

begin

for i:=1 to 10 do a[i]:=random(81)-30;

for i:=1 to 10 do write(a[i],'  ');

for i:=1 to 10 do if i mod 2 = 0 then s:=s+a[i];

p:=1;

for i:=1 to 10 do if a[i] < 0 then p:=p*a[i];

for i:=1 to 10 do if a[i] mod 2 <> 0 then k:=k+1;

write('s = ',s,'   p = ',p,'   k = ',k);

end.

Объяснение:

program spk;

var a:array [1..10] of integer;

i,s,k:integer;

p:real;

begin

p:=1;

write('Массив: ');

for i:=1 to 10 do

begin

a[i]:=random(81)-30;

write(a[i],'  ');

if i mod 2 = 0 then s:=s+a[i];

if a[i] < 0 then p:=p*a[i];

if a[i] mod 2 <> 0 then k:=k+1

end;

writeln;

writeln('Сумма элементов массива, с четными номерами, равна ',s);

writeln('Произведение отрицательных элементов равно ',p);

writeln('Количество нечётных элементов равно ',k)

end.