Var marka:array[1..4] of string=('АИ-92','АИ-95','АИ-98','ДТ'); cena:array[1..4] of real=(35.50,38.50,41.70,34.50); i,k,v:integer; begin Writeln('Укажите код топлива'); for i:=1 to 4 do Write(i,' - ',marka[i],', '); Write(' ? '); Read(k); if (k>0) and (k<=4) then begin Write('Количество литров: '); Read(v); Writeln; Writeln('Топливо: ',marka[k]); Writeln('Количество, л: ',v); Writeln('Цена за 1л, руб: ',cena[k]:0:2); Writeln('К оплате, руб: ',v*cena[k]:0:2) end else Writeln('Вы ввели неверное значение') end.
Пример работы программы
Укажите код топлива 1 - АИ-92, 2 - АИ-95, 3 - АИ-98, 4 - ДТ, ? 4 Количество литров: 56
Топливо: ДТ Количество, л: 56 Цена за 1л, руб: 34.50 К оплате, руб: 1932.00
Апр, школа №151 мурманской области вам: 1) 24 буквы + 8 цифр = 32 символа 2) 32 символа + 1 пробел = 33 символа 3) а так как для 32 символов нужно 5 бит, то для 33 символов нужно 6 бит ответ: i = 6 бит 2. здесь каждый раз придется задавать вопросы, чтобы уменьшить количество возможных вариантов. 1) больше или меньше 32? 2) больше или меньше 16? 3) больше или меньше 8? 4) больше или меньше 4? 5) больше или меньше 2? ответ: 5 вопросов. 3. не смогу . мне задали другое . удачи. 3 уже обеспечена : )
marka:array[1..4] of string=('АИ-92','АИ-95','АИ-98','ДТ');
cena:array[1..4] of real=(35.50,38.50,41.70,34.50);
i,k,v:integer;
begin
Writeln('Укажите код топлива');
for i:=1 to 4 do Write(i,' - ',marka[i],', ');
Write(' ? ');
Read(k);
if (k>0) and (k<=4) then
begin
Write('Количество литров: '); Read(v);
Writeln;
Writeln('Топливо: ',marka[k]);
Writeln('Количество, л: ',v);
Writeln('Цена за 1л, руб: ',cena[k]:0:2);
Writeln('К оплате, руб: ',v*cena[k]:0:2)
end
else
Writeln('Вы ввели неверное значение')
end.
Пример работы программы
Укажите код топлива
1 - АИ-92, 2 - АИ-95, 3 - АИ-98, 4 - ДТ, ? 4
Количество литров: 56
Топливо: ДТ
Количество, л: 56
Цена за 1л, руб: 34.50
К оплате, руб: 1932.00