VCT tính:S1=(a+b)^3/a^2 và S=(a+b)^3/a^2.In S lấy 3 số thập phân và S1 lấy phần nguyên chạy chương trình chữ ngôn ngữ pascal mình mới học có 4 kiểu dữ liệu:real,string,integer,char

2 câu trả lời

Program baitap;

Uses crt;

Var a,b:real;

Begin

Clrscr;

Write('a='); Readln(a);

Write('b='); Readln(b);

Writeln('S1=',((a + b)*(a + b)*(a + b))/(a*a):6:0);

Writeln('S=',((a + b)*(a + b)*(a + b))/(a*a):6:3);

Readln

End.

uses crt;

var a, b, s1, s : real;

begin

clrscr;

write('nhap hai so a va b : '); readln(a, b);

s1 := (sqr(a + b) * (a + b)) / sqr(a);

s := (sqr(a + b) * (a + b)) / sqr(a);

writeln('S = ', s:2:3);

writeln('S1 = ', s:2:0);

readln

end.