Ответы на вопрос:
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
Популярно: Информатика
-
прииииииип11.06.2020 13:31
-
Aleks228133829.05.2023 09:27
-
BalKA1312.06.2020 06:55
-
anlevytska21.07.2020 00:55
-
дарья162727.08.2020 00:27
-
nector26.03.2021 13:32
-
korostin200419.01.2020 13:29
-
Эвелина12341218.03.2021 03:13
-
sinitsadmitrij18.04.2020 20:04
-
hat345oxt28802.08.2021 03:43