Var count_num:integer; number:real; begin count_num:=0; repeat readln(number); writeln('Введенное число: ',number); if (number <> 0) then Inc(count_num); until (number =0); writeln('Количество введеных чисел: ', count_num); 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.
count_num:integer;
number:real;
begin
count_num:=0;
repeat
readln(number);
writeln('Введенное число: ',number);
if (number <> 0) then Inc(count_num);
until (number =0);
writeln('Количество введеных чисел: ', count_num);
end.