Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var x1,x2,x3,x4: integer;
function max(a,b: integer): integer
begin
if a> b then max: = a
else max: =b;
end;
read(x1,x2,x3,x4);
x1: =max(x1,x2);
x2: =max(x3,x4);
writeln(x1);
end.
var a: array[1..10] of integer;
i,s: integer;
randomize;
for i: = 1 to 10 do begin
a[i]: = random(100);
s: =s+a[i];
writeln(s);
i,mk,pk,s,p: integer;
p: =1;
a[i]: = random(30+10)-10;
if a[i]> =0 then begin
pk: =pk+1;
end
else begin
mk: =mk+1;
p: =p*a[i];
writeln(pk,s,mk,p);
l*pi*((r+a)^2- (r)^2)*p
p - плотность
2 мальчика плывут на тот берег
1 мальчик возвращается
1 солдат плывет на тот берег
второй мальчик возвращается
и так по кол-ву солдат
ну его в баню такую переправу и бедные мальчики
ps задается уже не первый раз, пользуйтесь поиском
Популярные вопросы