viet chuong trinh nhap vao 4 so tinh tong cua 4 so do

2 câu trả lời

program oken;
uses crt;
var a,b,c,d:integer;
begin
        clrscr;
        write('nhap so thu 1: '); readln(a);
        write('nhap so thu 2: '); readln(b);
        write('nhap so thu 3: '); readln(c);
        write('nhap so thu 4: '); readln(d);
        writeln('Tong cua 4 so: ',a+b+c+d);
        readln;
end.

Program tong;

Uses crt;

Var a1,a2,a3,a4,S : real;

Begin clrscr;

Writeln('Nhap 4 so tu ban phim lan luot la :'); readln(a1,a2,a3,a4);

S :=a1+a2+a3+a4;

Writeln('Tong cua 4 so nhap tu ban phim la :', S);

Readln

End.

Câu hỏi trong lớp Xem thêm