По вашему рисунку посчитать клеточки сложно, мне показалось, что там всё по 5 клеток. Если это не так, поменять несложно.
использовать Чертежник
алг Зигзаг
нач
сместиться на вектор (0,5)
опустить перо
нц 5 раз
сместиться на вектор (5,5)
сместиться на вектор (5,-5)
кц
кон
Var i:integer; n,sum:real;
Begin
Write('Введите 10чисел: ');
while (i<>10) do begin
readln(n);
sum:=sum+n;
i:=i+1;
end;
writeln('Сумма этих чисел - ',sum);
end.
uses crt;
var b,x:real;
begin
write('Введите длину ткани: ');
readln(x);
write('Введите стоимость квадратного метра ткани: ');
readln(b);
writeln('Стоимость ткани длиной ',x,' метров равна ',0.8*x*b);{кусок длиной 1.25 м и шириной 0.8 метра имеет площадь 1 квадратный метр и стоит ровно B рублей}
end.
Летающий автобус)
1. Мест в эконом-классе 120, а в бизнес-классе 40.
2. 100 процентов прибыли получим, если заполним все места. Билет в эконом-классе стоит в 2 раза меньше чем X. Получаем следующее уравнение:
40*X + 0.5*120*X = 100%, X = 1% от всей прибыли. Значит один билет в бизнес - классе приносит один процент прибыли. А один билет в эконом-классе приносит 0.5 процента прибыли.
3. Осталось рассчитать прибыль компании учитывая непроданные билеты:
P = 100 - b - 0.5*a и написать программу:
var a,b:integer;
begin
repeat
writeln('Введите количество непроданных билетов (a,b)');
readln(a,b);
until (a<=120) and (b<=40)and (a>=0) and (b>=0);
writeln('Прибыль компании составит ',100-b-0.5*a,'%');
end.