Program gt;
var s:string;
l:integer;
begin
readln(s);
l:=length(s);
writeln(s[1]);
writeln(s[l],' ',s[l]);
end.
1)
var
V,a: integer;
begin
write('Введите длину ребра: ');
readln(a);
V:=a*a*a;
writeln('Объём куба: ',V);
end.
2)
var
a,b,c,S: integer;
begin
writeln('Введите длины ребер:');
readln(a,b,c);
S:=2*a*b+2*a*c+2*b*c;
writeln('Площадь поверхности кирпича: ',S);
end.
3)
var
r,l: real;
begin
write('Введите радиус окружности: ');
readln(r);
l:=2*Pi*r;
writeln('Длина окружности: ',l);
end.
При беге S=vt, ходьбе S=v1*t1, S одинаково, t1=vt/v1=3*t -ответ
1,4,10,13,16,19,22,25,28,31,34,37,40,43,46,49,52,55,58,61