Question

Bài 1 : Tính tổng 2 số bất kì (được nhập từ bàn phím)

Bài 2 : Tính chu vi, diện tích hình vuông biết độ dài cạnh

Bài 3 : Tính điểm trung bình của 2 môn toán , văn .Biết điểm văn , toán dược nhập từ bàn phím

( Giúp mình ngay nha mình cần gấp , ngày mai phair nộp zùi) ^ ^

Answer 1

Bài 1:

pogram tong;

uses crt;

var a,b,c: longint;

begin

clrscr;

writeln('nhap 2 so a,b'); readln(a,b);

c:= a+b;

writeln('tong 2 so ',a,' va ',b,' la: ',c);

readln

end.

Bài 2:

program hinh_vuong;

uses crt;

var a,c,s: longint;

begin

clrscr;

writeln('nhap do dai canh hinh vuong: '); readln(a);

c:= a*4;

s:= a*a;

writeln('chu vi hinh vuong la: ',c);

writeln('dien tich hinh vuong la: ',s);

readln

end.

Bài 3:

program TBM_toan_van;

uses crt;

var a,b,c,d,e,g,h,i: longint; t,s: real;

begin

clrscr;

writeln('nhap cac diem toan: '); readln(a,b,c,d);

writeln('nhap cac diem van: '); readln(e,g,h,i);

t:= (a+b+c*2+d*3)/7;

s:= (e+g+h*2+i*3)/7;

writeln('diem trung binh mon toan la: ',t);

writeln('diem trung binh mon van la: ',s);

readln

end.

(ở bài 3 mk ko bít tính điểm tb nên mk chi bít làm vậy thôi! bạn thông cảm nhé! chúc bạn học tốt!!! )

Answer 2

program bai1;

uses crt;

var t,v,tb: real;

begin

clrscr;

write('nhap diem toan ='); readln(t);

write('nhap diem van ='); readln(v);

tb:=(t+v) / 2;

writeln('trung binh 2 mon toan ',' van =',tb:4:2);

readln;

end.