Viết chương trình là có ba bạn Tuấn , Thành ,Phan rủ nhau đi mua kem .Tuấn góp 30000 ,tiền của Thành gấp đôi tiền của Tuấn ,Phan góp vào ít hơn Thành 10000,vậy với số tiền đó ba bạn mua được bao nhiêu cây kem (giả sử mỗi cây kem 7000 và số tiền lẻ còn dư lại là bao nhiêu )?
Program giangtri14112007;
Uses crt;
Var a,b,c,T:real;
K,D:integer;
Begin
a:=30000;
b:=2*a;
c:=b-10000;
T:=a+b+c;
K:=T div 7000;
D:=T mod 7000;
Writeln (‘So kem mua duoc’,K);
Writeln (‘So tien con du’,D);
Readln;
End.
Program Tuongtaylor;
uses crt;
var tuan,thanh,phan:longint;
begin
clrscr;
tuan:=30000;
thanh:=tuan*2;
phan:=thanh-10000;
writeln(‘Mua duoc: ‘,(tuan+thanh+phan)div 7000);
writeln(‘So tien con du: ‘,(tuan+thanh+phan)mod 7000);
readln
end.