Nhập vào số nguyên dương a và b ,c. Viết chương trình tính tổng ba số đó khi a>b
0 bình luận về “Nhập vào số nguyên dương a và b ,c. Viết chương trình tính tổng ba số đó khi a>b”
Program BTT; Uses crt; Var a,b,t: longint; Begin Clrscr; Write(‘Nhap a: ‘); Readln(a); Write(‘Nhap b: ‘); Readln(b); If (a mod 2 = 0) and (b mod 2 = 0) then Write(‘Tong la: ‘,a+b); If (a mod 2 = 1) and (b mod 2 = 1) then Write(‘Tich la: ‘,a*b); Readln End.
program chuong trinh tinh tong 3 so a b c; var s,a,b:real; uses crt; begin clrscr; writeln(‘nhap so thu nhat a:’);readln(a); writeln(‘nhap so thu 2 b:’);readln(b); s:=a+b; writeln(‘tong 2 so a+ b la:’,s:0:1); readln; end.
Program BTT;
Uses crt;
Var a,b,t: longint;
Begin
Clrscr;
Write(‘Nhap a: ‘); Readln(a);
Write(‘Nhap b: ‘); Readln(b);
If (a mod 2 = 0) and (b mod 2 = 0) then Write(‘Tong la: ‘,a+b);
If (a mod 2 = 1) and (b mod 2 = 1) then Write(‘Tich la: ‘,a*b);
Readln
End.
program chuong trinh tinh tong 3 so a b c;
var s,a,b:real;
uses crt;
begin
clrscr;
writeln(‘nhap so thu nhat a:’);readln(a);
writeln(‘nhap so thu 2 b:’);readln(b);
s:=a+b;
writeln(‘tong 2 so a+ b la:’,s:0:1);
readln;
end.