uses crt;
var n,m,i,p:longint;
s,k:byte;
begin
clrscr;
repeat
write('Введите натуральное число N=');
readln(n);
until n>0;
m:=n;
s:=0;
while m>0 do
begin
s:=s+m mod 10;
m:=m div 10;
end;
writeln('Числа от 1 до ',n-1,', у которых произведение цифр=',s);
k:=0;
for i:=1 to n-1 do
begin
m:=i;
p:=1;
while m>0 do
begin
p:=p*(m mod 10);
m:=m div 10;
end;
if p=s then
begin
k:=1;
write(i,' ');
end;
end;
if k=0 then write('Таких чисел нет');
readln
end.
Дано: Мг = 400 т = 400000 кг. Осадка h = 40 см = 0,4 м. Плотность воды р = 1000 кг/м³ S -? После загрузки на судно, со стороны воды, стала действовать дополнительная выталкивающая сила. Поскольку выталкивающая сила равна весу вытесненной воды, то вес дополнительно вытесненной воды из-за загрузки судна, будет равняться весу груза. Вес вытесненной воды Fв = mв*g. Масса вытесненной воды mв = Vв*р. Vв = h*S. Тогда Fв = р*h*S*g. С другой стороны, как было сказано выше, этот вес воды должен равняться весу груза. Т.е. Fв = Fг = Мг*g. Таким образом р*h*S*g = Мг*g. Отсюда S = Мг/ р*h = 400000/1000*0,4 = 1000 м²
Uczę się w bardzo dobrej klasie. Wszyscy uczniowie są bardzo interesujący i różni, a my mamy wiele wspólnego. Nasza klasa zawsze była przyjazna, wszyscy faceci z naszej klasy, wspierają się nawzajem we wszystkim, jeśli to możliwe, pomagają.
Na zmianach często dyskutujemy o sportach i innych wiadomościach, dzielimy się interesującymi filmami, pokazujemy śmieszne zdjęcia na telefonach. W weekendy wiadomości zwykle gromadzą się bardzo dużo i na początku tygodnia wszyscy koledzy chętnie dzielą się nimi ze sobą.
W letnie wakacje często spotykamy się z kolegami z klasy i gramy na boisku przed szkołą w różne gry sportowe. Jest to doganialki, kwadrat, piłka nożna i wiele innych gier. A zimą po szkole bawimy się z chłopakami w śnieżki, Rzeźbimy bałwanki i kobiety śnieżne, czasami jeździmy ze zjeżdżalni.
Mamy szczęście, że mamy świetnego kierownika. Nasz nauczyciel jest uprzejmy dla każdego ucznia, jeśli uczeń nie działa, to zawsze pomaga i podpowiada. Nasza klasa bierze udział w różnych wydarzeniach i często organizuje wielkie koncerty świąteczne.
Wszyscy koledzy z klasy i koledzy z klasy to moi przyjaciele. Nie mogę wydzielić jednej osoby, ponieważ cenię każdą na swój sposób. Nasza klasa ma swoich liderów, którzy pomagają innym, organizują różne imprezy i święta.
Bardzo podoba mi się nasze biuro. Jest bardzo przytulny i jasny, zawsze ładnie pachnie kredą. Mam nadzieję, że ukończenie szkoły nie rozłączy mnie z kolegami z klasy, nadal myślę, że często będziemy się spotykać, odwiedzać nauczyciela i oczywiście pamiętać beztroski czas spędzony na szkolnym biurku!
var n,m,i,p:longint;
s,k:byte;
begin
clrscr;
repeat
write('Введите натуральное число N=');
readln(n);
until n>0;
m:=n;
s:=0;
while m>0 do
begin
s:=s+m mod 10;
m:=m div 10;
end;
writeln('Числа от 1 до ',n-1,', у которых произведение цифр=',s);
k:=0;
for i:=1 to n-1 do
begin
m:=i;
p:=1;
while m>0 do
begin
p:=p*(m mod 10);
m:=m div 10;
end;
if p=s then
begin
k:=1;
write(i,' ');
end;
end;
if k=0 then write('Таких чисел нет');
readln
end.