Viết Chương trình nhập vào bàn phím 2 số nguyên c và d, tính tổng, hiệu , tích , thương của c và d
2 câu trả lời
// nó không tự xuống dòng, xin lỗi bạn
Uses crt;
Var a, b:integer; c, d:real;
Begin
Clrscr;
Write('nhap 4 so a, b, c, d =') ;
Writeln('tong =',a+b) ;
Writeln('hieu =',a-b) ;
Writeln('tich =',a*b) ;
Writeln('thuong =',c/d:0:2) ;
Readln end.
program tong_hieu_tich_thuong;
uses crt;
var c,d,tong,tich,hieu:integer;
thuong:real;
begin
clrscr;
write('nhap vao so c ');readln(c);
write('nhap vao so d');readln(d);
tong:=c+d;
write('tong cua c va d la ',tong,');
hieu:=c-;
write('hieu cua c va d la ',hieu,');
tich:=c*d;
write('tich cua c va d la ',tich,');
thuong:=c/d;
write('thuong cua c va d la ',thuong,');
readln;
end.
Câu hỏi trong lớp
Xem thêm
