Var a,b:integer; begin writeln('введите число (км)'); readln(a); b:=a*1000 writeln('метры = ',b); end.
задание 2 program dfg; var x,y,b,d:real; begin writeln('введите стоимость гостиницы (за сутки)'); readln(x); if x>0 then begin writeln('введите стоимость питания (за сутки)'); readln(y); if y>0 then beginwriteln('введит стоимость сувинир (за сутки)'); readln(b); if b>0 then begin d:=(x+y+b)*7; writeln('необходимая сумма',d); end else writeln('число не может быть отрицательным'); end else writeln('число не может быть отрицательным'); end else writeln('число не может быть отрицательным'); end.
a,b:integer;
begin
writeln('введите число (км)');
readln(a);
b:=a*1000
writeln('метры = ',b);
end.
задание 2
program dfg;
var
x,y,b,d:real;
begin
writeln('введите стоимость гостиницы (за сутки)');
readln(x);
if x>0 then
begin
writeln('введите стоимость питания (за сутки)');
readln(y);
if y>0 then
beginwriteln('введит стоимость сувинир (за сутки)');
readln(b);
if b>0 then
begin
d:=(x+y+b)*7;
writeln('необходимая сумма',d);
end
else
writeln('число не может быть отрицательным');
end
else
writeln('число не может быть отрицательным');
end
else
writeln('число не может быть отрицательным');
end.
a:=a*a; //4-я
2) a:=a*a; //2-я
b:=a*a; //4-я
a:=a*b; //6-я
3) b:=a*a; //2-я
c:=b*b; //4-я
b:=c*b; //6-я
a:=a*b; //7-я
4) a:=a*a; //2-я степень
a:=a*a; //4-я
a:=a*a; //8-я
5) b:=a*a; //2-я степень
b:=b*b; //4-я
b:=b*b; //8-я
a:=a*b; //9
6) b:=a*a; //2-я степень
a:=b*b; //4-я
a:=a*a; //8-я
a:=a*b; //10
7) b:=a*a; //2-я степень
c:=b*b; //4-я
d:=c*c; //8-я
c:=d*b; //12
a:=a*c; //13
8) b:=a*a; //2
c:=b*a; //3
d:=c*c; //6
e:=d*d; //12
a:=c*e; //15
9) b:=a*a; //2
c:=b*b; //4
d:=c*c; //8
e:=d*d; //16
b:=e*c; //20
a:=b*a; //21
10) b:=a*a; //2
c:=b*b; //4
d:=c*c; //8
e:=d*d; //16
b:=e*d; //24
a:=b*c; //28
11) a:=a*a; //2
a:=a*a; //4
a:=a*a; //8
a:=a*a; //16
a:=a*a; //32
a:=a*a; //64