А) 8
б) 30
в) 6
г) 32
д) 3
е) 1
ж) 8
1) вправо 3 -> влево 2 = 1
2) вправо 3 -> влево 2 -> вправо 3 -> влево 2 = 2
3) вправо 3 = 3;
4) вправо 3 -> влево 2 -> вправо 3 = 4
5) вправо 3 -> влево 2 -> вправо 3 -> влево 2 -> вправо 3 = 5
1) var a,b,c,d:integer;
begin
write('Введите кол-во товара: ');
readln (a);
write ('Введите цену товара: ');
readln (b);
c:=a*b;
writeln ('Стоимость покупки составила ',c,' рублей');
write ('Сколько денег Вы даёте за покупку: ');
readln (d);
if d<c then writeln ('Вам ещё нужно доплатить ',c-d,' рублей');
if d=c then writeln ('Сдачи нет');
if d>c then writeln ('Сдача составила ',d-c,' рублей');
end.
2) var a,b,c:integer;
begin
write ('Введите длину стороны a: ');
readln (a);
write ('Введите длину стороны b: ');
readln (b);
write ('Введите длину стороны c: ');
readln (c);
writeln;
if (a<b+c) and (b<a+c) and (c<a+b) then writeln ('Такой треугольник существует.')
else writeln ('Такой треугольник не существует.');
end.
3) var i,n:integer;
b:array[1..1000] of real;
c:real;
begin
c:=0;
write ('Введите кол-во дней: ');
readln (n);
for i:=1 to n do
begin
if i=1 then b[i]:=10 else b[i]:=b[i-1]+((b[i-1]/100)*10);
end;
for i:=1 to n do
begin
c:=c+b[i];
end;
writeln ('Всего спортсмен пробежит ',c:0:2,' км за ',n,' дней');
end.
Pascal:
function power(a: integer; n: integer): integer;
begin
if n = 0 then
power := 1
else if n mod 2 = 0 then
power := sqr(power(a, n div 2))
else
power := power(a, n - 1) * a;
end;
var
a: array[0 .. 4] of integer;
x, i, res: integer;
begin
res := 0;
for i := 4 downto 0 do
read(a[i]);
readln(x);
for i := 4 downto 0 do
inc(res, a[i] * power(x, i));
writeln(res)
end.
Компьютер, колькулятор, абак, часы