Ответы на вопрос:
//pascalabc.net 3.2 сборка 1318 var c1,c2,n,m: integer; begin readln(c1,n,c2,m); if c1*n+c2*m> =10000 then writeln((c1*n+c2*m)*0.93) else writeln(c1*n+c2*m); end. пример ввода: 2 2500 4 1250 пример вывода: 9300
Популярно: Информатика
-
Екатерина31Теребун25.02.2022 18:41
-
kashalotic2012.09.2021 03:25
-
NekitGame22524.01.2023 12:14
-
1ирочка128.06.2021 23:07
-
alina174923.05.2022 17:20
-
Anatoliy111111101.09.2022 03:22
-
Chuiruss15.06.2020 19:19
-
5Ник424.04.2020 03:33
-
МарияLevkivska09.04.2023 10:52
-
740031617.01.2021 21:40