Program p1;
uses crt;
var s1,s2,s3:string;
a:integer;
begin
read(s1);
a:= Pos(' ',s1);
s2:=Copy(s1,1,a-1);
Delete(s1,1,a);
s3:=s1+' ' +s2;
write(s3);
end.
Проверь так ?
program raf105;
var x,y,day:real;
begin
x:=10;
while day<7 do
begin
x:= x+x/100*10;
y:= y+x;
day:= day+1;
end;
writeln('Суммарный путь, который пробежит спортсмен за 7 дней тренировок: ',round(x),' км.');
end.
<em>Программа написана на языке PascalABC</em>
Var
d: integer;
n := 0;
s := 0;
begin
repeat
readln(d);
if (d > 0) and (d mod 8 = 0) then begin
s := s + d;
n := n + 1;
end
until d = 0;
writeln('Avg = ',s / n)
end.
1 вопрос: а=1;
2 вопрос: б=3;
3 вопрос: а= -1;
4 вопрос: а=21;
5 вопрос: а=9,5.