Bài 3. Chương trình máy tính và dữ liệu

nguyễn tuấn tài
Xem chi tiết
Bao Gia
Xem chi tiết
Bao Gia
Xem chi tiết
Kim Phụng Nguyễn
Xem chi tiết
Hoàng Thị Ngọc Bích
Xem chi tiết
Pham Thanh Huy
Xem chi tiết
Nguyen Hoang Quan
17 tháng 10 2018 lúc 21:42

Viết dễ nha bạn

program tinhdienticha;

uses crt;

var a,b,s1,s2,s:real;

begin

write('Nhap vao so a: '); readln(a);

write('Nhap vao so b: '); readln(b);

s1:=2*a*b;

s2:=(3.14*a*a)/2;

s:=s1+s2;

writeln('Dien tich tong la: ', s:10:6);

readln end.

Bình luận (0)
Uyen Slimey
Xem chi tiết
Nguyễn Phạm Thanh Nga
9 tháng 10 2018 lúc 17:19

var x,y:real;

begin

write('nhap x,y:');readln(x,y);

readln;end.

Bình luận (0)
Tú Nguyễn
28 tháng 10 2018 lúc 22:02

var a,b:integer;

begin

write('a=');readln(a);

write('b=');readln(b);

readln;

end.

Bình luận (0)
Tú Nguyễn
28 tháng 10 2018 lúc 22:03

var x,y:integer;

begin

write('x=');readln(x);

write('y=');readln(y);

readln;

end.

Bình luận (0)
nguyenthanhtuan
Xem chi tiết