program prog_book;vars,sum,sdaca: integer;
beginwriteln ('сколько стоит книга?');read (s);writeln ('сколько денег платите?');read (sum);if sum=s then writeln ('сдачи не надо')elsebeginsdaca:=sum-s;writeln ('сдача=',sdaca);end;end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program prog_book;
var
s,sum,sdaca: integer;
begin
writeln ('сколько стоит книга?');
read (s);
writeln ('сколько денег платите?');
read (sum);
if sum=s then writeln ('сдачи не надо')
else
begin
sdaca:=sum-s;
writeln ('сдача=',sdaca);
end;
end.