Var a,b,sek_m,sek_l:integer; begin writeln('на каком этаже живёт Миша?'); readln(a); writeln('на каком этаже находится лифт?'); readln(b); writeln('за сколько секунд Миша поднимается на этаж?'); readln(sek_m); writeln('за сколько секунд лифт поднимается на этаж?'); readln(sek_l); sek_m:=sek_m*a-sek_m; writeln('Миша поднимется на нужный этаж за ',sek_m,' сек.'); sek_l:=(sek_l*b+sek_l*a)-sek_l; writeln('лифт поднимется на нужный этаж за ',sek_l,' сек.'); if (sek_m=sek_l) then writeln('Миша будет подниматься одинаковое количество времени') else if (sek_l>sek_m) then writeln('Мише быстрее подняться самому') else writeln('Мише быстрее подняться на лифте'); end.
// PascalABC.NET 3.0, сборка 1128 procedure AllMake(p:array of integer; var avg:real); begin avg:=p.Average; for var i:=0 to p.Length-1 do if p[i]<avg then p[i]*=10 end;
begin var n:=ReadInteger('Количество элементов в массиве:'); var a:=ArrRandom(n,1,50); Writeln('Исходный массив'); a.Println; var av:real; AllMake(a,av); Writeln('Среднее арифметическое равно ',av); Writeln('Результирующий массив'); a.Println; WriteAllText('out.txt',a.JoinIntoString) end.
1)
var n, i, s, k:integer;
begin
s:= 1;
k:=0;
for i:=1 to 10 do begin
readln(n);
if n < 5 then begin
s:=s*n;
k:=1;
end;
if k=1 then write(s) else write(0);
end.
2)
var n, i, s:integer;
begin
s:= 0;
for i:=1 to 10 do begin
readln(n);
if n < 25 then begin
s:=s+n;
end;
write(s);
end.