Ответы на вопрос:
Program konfeta; uses crt; var a,b,c,k: integer; d,e,m: real; begin clrscr; write('input (x) weight: '); readln(b); write('input (a) cost: '); readln(a); d: =a/b; write('1 kg cost ',d: 2: 2); writeln; write('input (y)kg: '); readln(c); e: =c*d; writeln(c ,' kg cost= ',e: 2: 2); write('input k rub: '); readln(k); m: =k/d; writeln(k ,' rub cost ',m: 2: 2 ,' kg.'); write('press any '); repeat until keypressed; end.если надо пояснение пиши
Популярно: Информатика
-
Crdsaadfa25.10.2020 04:37
-
pasha19899p06z9m17.06.2022 13:32
-
ЕрнарЖанар07.10.2022 07:44
-
Анна536364616.10.2020 19:28
-
vipsab33301.06.2020 13:47
-
Дарина3737303.08.2022 00:40
-
Leg1oner04.03.2021 07:37
-
Zayka123125.05.2023 07:53
-
rashas0501.02.2022 21:55
-
konuj28.03.2021 07:57