Предмет: Информатика,
автор: Timoshaa97
Решите, пожалуйста, в паскале)
Приложения:

Ответы
Автор ответа:
0
var a,b:real;
begin
writeln ('Введите стоимость книг');
readln (a);
writeln ('Введите сумму денег');
readln (b);
if (a=b) then writeln ('Спасибо');
if (a>b) then writeln ('Доплатите ',a-b);
if (a<b) then writeln ('Возьмите сдачу ',b-a);
end.
begin
writeln ('Введите стоимость книг');
readln (a);
writeln ('Введите сумму денег');
readln (b);
if (a=b) then writeln ('Спасибо');
if (a>b) then writeln ('Доплатите ',a-b);
if (a<b) then writeln ('Возьмите сдачу ',b-a);
end.
Похожие вопросы
Предмет: Алгебра,
автор: 4fgh45ghidtfy
Предмет: Английский язык,
автор: lalla27
Предмет: Русский язык,
автор: goodsamira21
Предмет: Геометрия,
автор: rus333
Предмет: Геометрия,
автор: Sasha130