1.
Var a,b,s,p:integer;
begin
readln(a,b);
p:=2*(a+b);
s:=a*b;
writeln('площадь = ',s);
writeln('периметр = ',p);
end.
2.
Var s,t:integer;v:real;
begin
readln(s,t);
v:=s/t;
writeln('скорость = ',v);
end.
3.
Var a,x,t:integer;
begin
readln(a,x);
t:=a-3*x;
writeln('денег осталось = ',t);
end.
4.
Var x:integer;
begin
x:=40*6+10+15*3+20;
writeln('время = ',x);
end.
5.
Var x,s:integer;
begin
readln(x);
s:=31*4*x+30*4*(x+4);
writeln('стоимость молока = ',s);
end.
6.
Var m,n,x:integer; t:real;
begin
readln(m,n,x);
t:=x/(m+n);
writeln('время встречи = ',t);
end.
7.
Var c,k,s:integer;
begin
readln(c,k);
s:=c*k;
writeln('стоимость покупки = ',s);
end.
8.
Var a,b,c:integer;r:real;
begin
readln(a,b,c);
r:=(a+b+c)/3;
writeln('средний балл = ',r);
end.
9.
Var cr:integer;k,cd:real;
begin
readln(cr,k);
cd:=cr/k;
writeln('цена товара в долларах = ',cd);
end.
10.
Var d:integer;k,m:real;
begin
readln(d);
m:=d/100;
k:=m/1000;
writeln('длина в метрах ',m,' длина в километрах ',k);
end.
11.
Var m:integer; g,t:real;
begin
readln(m);
g:=m*1000;
t:=m/1000;
writeln('масса в граммах ',g,' масса в тоннах ',t);
end.
12.
Var k,b:integer;
begin
readln(k);
b:=k*1024*8;
writeln('размер файла в битах ',b);
end.
13.
Var n:integer; m:real;
begin
readln(n);
m:=n/8/1024/1024;
writeln('размер файла в Мбайтах ',m);
end.
14.
Var n:integer;
begin
n:=85*40*80*8/8/1024;
writeln('размер файла в Кбайтах ',n);
end.
15.
Var x:integer;
begin
readln(x);
x:=abs(x);
writeln('расстояние до точки x=0 равно ',x);
end.
16.
Var a,s:integer;
begin
readln(a);
s:=sqr(a);
writeln('площадь квадрата равна ',s);
end.
17.
Var s:integer; a:real;
begin
readln(s);
a:=sqrt(s);
writeln('длина стороны квадрата равна ',a);
end.
18.
Var p:integer; a,s:real;
begin
readln(p);
a:=p/4;
s:=sqr(a);
writeln('площадь квадрата равна ',s);
end.
19.
Var s:integer; a,p:real;
begin
readln(s);
a:=sqrt(s);
p:=4*a;
writeln('периметр квадрата равен ',p);
end.
20.
Var a,b,c:integer; s,p:real;
begin
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('площадь треугольника равна ',s);
end.
21.
Var a,h:integer; s:real;
begin
readln(a,h);
s:=1/2*a*h;
writeln('площадь треугольника равна ',s);
end.
22.
Var s,l:integer; t:real;
begin
readln(s,l);
t:=s/100*l;
writeln('необходимое количество топлива ',t);
end.
23.
Var c,p:integer; x:real;
begin
readln(c,p);
x:=c-c*p/100;
writeln('новая цена на телевизор равна ',x);
end.
24.
Var n,q:integer; p:real;
begin
readln(n,q);
p:=q/n*100;
writeln('процент незрелых арбузов ',p);
end.
25.
Var n,r:integer; k:real;
begin
readln(n,r);
k:=r*n/100;
writeln('количество насосов ',k);
end.
26.a)
Var a,b:integer; f:real;
begin
readln(a,b);
f:=(2*a+b)/3;
writeln('значение выражения равно ',f);
end.
26.б)
f:=3/5*a+b;
26.в)
f:=(a+b)/(3+a);
26.г)
f:=(a-b)/(2*b);
26.д)
f:=(a-b)/(2*b)+2/b;
27.a)
x:=7/8+1/(2*a);
27.б)
x:=2/(3*a)-1/(4+a);
27.в)
x:=sqr(a)-sqrt(b+7);
27.г)
x:=sqr(a)+3*sqr(a)*sqr(a)+4*sqr(a)*sqr(a)*sqr(a)*sqr(a);
27.д)
x:=(a+sqrt(b-2*c))/(8+a)+1/(2*a);
27.е)
x:=3/(4*c)-(4*sqrt(2*a+b)-c)/(sqr(b)*c);
28.
var x,y,c:integer;
begin
readln(x,y);
c:=x;
x:=y;
y:=c;
writeln('новые значения переменных:');
writeln('x=',x);
writeln('y=',y);
end.
29.
var kf,kr,k,r:integer;
begin
readln(kf,kr);
k:=kf div kr;
r:=kf mod kr;
writeln('количество конфет в коробках ',k,' конфет останется ',r);
end.
30.
var k,h,m,s:integer;
begin
readln(k);
h:=k div 3600;
m:=k mod 3600 div 60;
s:=k mod 3600 mod 60;
writeln(h,' ',m,' ',s);
end.
31.
var n,d,e:integer;
begin
readln(n);
d:=n div 10;
e:=n mod 10;
writeln(d);
writeln(e);
end.
32.
var n,d,e,s:integer;
begin
readln(n);
s:=n div 100;
d:=n mod 100 div 10;
e:=n mod 10;
writeln(s);
writeln(d);
writeln(e);
end.
33.
var n,a,b:integer;
begin
readln(n);
a:=n div 10;
b:=n mod 10;
n:=b*10+a;
writeln('новое число ',n);
end.
34.
var n,a,b:integer;
begin
readln(n);
a:=n div 100;
b:=n mod 100 div 10;
c:=n mod 10;
n:=c*100+b*10+a;
writeln('новое число ',n);
end.
35.
var n,a,b:integer;
begin
readln(n);
a:=n div 10;
b:=n mod 10;
n:=a*100+b;
writeln('новое число ',n);
end.
36.
var n,a,b:integer;
begin
readln(n);
a:=n div 100;
b:=n mod 10;
n:=a*10+b;
writeln('новое число ',n);
end.
37.
var n,a,b,c,d:integer;
begin
readln(n);
a:=n div 1000;
b:=n mod 1000 div 100;
c:=n mod 100 div 10;
d:=n mod 10;
n:=d*1000+c*100+b*10+a;
writeln('новое число ',n);
end.
38.
var n,k,x:integer;
begin
readln(n,k);
x:=(n mod 7)+k-1;
writeln('это день ',x);
end.
39.
var h,m,s,h1,m1,s1,hx,mx,sx:integer;
begin
readln(h,m,s,h1,m1,s1);
s:=3600*(h+h1)+60*(m+m1)+s+s1;
hx:=s div 3600;
mx:=s mod 3600 div 60;
sx:=s mod 3600 mod 60;
writeln('прибытие автобуса:');
writeln(hx,' ',mx,' ',sx);
end.
40.
Var n,c,d:real;
begin
readln(n);
c:=int(n);
d:=frac(n);
n:=d*100+c*0.001;
writeln('новое число ',n:6:3);
end.