Program 1;
var x : integer;
begin
write('введите число');
readln(x);
if x<5 then write(xxp(10)) else write('число <5');
readln;
<span>end.</span>
Var
N,K,R: integer;
x,s: integer;
begin
read(N,K);
R := N;
x := 2; s := 4;
while s <= K do
begin
while K mod x = 0 do
begin
if N mod x = 0 then
N := N div x
else
R := R * x;
K := K div x;
end;
s := s + 2*x + 1;
x := x + 1;
end;
if N mod K <> 0 then
R := R * K;
writeln(R)
end.
1. var a:array[1..100] of integer;
i,s:integer;
begin
for i:=1 to 25 do begin
a[i]:=random(5)+1;
write(a[i]:4);
end;
s:=0;
for i:=1 to 25 do begin
if a[i]<=2 then s:=s+1;
end;
writeln;
writeln('Количество неуспевающих=',s);
end.
это при условии,что человек неуспевающий,если у него оценка ниже или равна 2-ке
1) 100%- 200 деревьев
2) 23%- х
Х= 23*200/100=46
3) 200+46=246 деревьев посадили школьники
1) 17+15+25=57% составляют семена кроме дуба
2) 100-57=43% составляют семена дуба
3)100%-50 кг
43%-х
х=43*50/100=21,5 кг семян дуба собрали ученики