Решения задач acmp.ru
Главная
Вход
Регистрация
Вторник, 29.09.2020, 01:20Приветствую Вас Гость | RSS
Меню сайта

Категории раздела
Pascal [121]
C++ [76]

Поиск

Мини-чат
200

Легкий заработок!

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа

Главная » Файлы » Pascal

0294 Болты и гайки

Скачать файл можно после просмотра рекламы:

12.06.2012, 15:41
var p1,p2,s,K1,L1,M1,K2,L2,M2:longint; 
begin 
assign(input, 'input.txt'); reset(input); 
assign(output, 'output.txt'); rewrite(output); 
readln (K1,L1,M1); 
readln (K2,L2,M2); s:=0;p1:=k1;p2:=k2; 
k1:=K1-l1*k1 div 100; 
k2:=k2-l2*k2 div 100; 
if k1<p1 then s:=s+(p1-k1)*m1; 
if k2<p2 then s:=s+(p2-k2)*m2; 
if k1>k2 then s:=s+(k1-k2)*m1 
else if k2>k1 then s:=s+(k2-k1)*m2; 
write(s); 
end. 
Категория: Pascal | Добавил: shum
Просмотров: 3234 | Загрузок: 1
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Это интересно!


Copyright MyCorp © 2020