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

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”

  1. 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.

    Bình luận
  2. 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.

    Bình luận

Viết một bình luận