ai giúp mình trước 14h00 chiều với ;((
1/Viết chương trình nhập vào số nguyên dương a. In ra màn hình kết quả bình phương và căn bậc 2 của a
2/ Nhập tuổi của con là x tuổi , tuổi bố là y , viết chương trình tính tuổi bố biết năm nay tuổi cha gấp 10 lần tuổi con , 6 năm nữa tuổi cha gấp 4 lần tuổi con
1)uses crt;
var a:longint;
begin
clrscr;
write(‘a= ‘);readln(a);
writeln(‘Binh phuong: ‘,a*a);
writeln(‘Can bac 2: ‘,sqrt(a):0:10);
readln
end.
2)uses crt;
var x:longint;
begin
clrscr;
write(‘x= ‘);readln(x);
writeln(‘Tuoi cua bo: ‘,x*10);
readln
end.
1/
uses crt;
var a:longint;
begin
clrscr;
write)’Nhap a=’);readln(a);
writeln(‘a binh phuong=’,sqr(a));
writeln(‘can bac 2 so hoc cua a=’,sqrt(a):0:2);
readln;
end.
2/
uses crt;
var x:longint;
begin
clrscr;
write(‘Nhap tuoi con=’);readln(x);
writeln(‘Tuoi cua bo=’,x*10);
writeln(‘Tuoi cua bo 6 nam sau=’,x*10+6);
readln;
end.