Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Đào Thị Thùy Dương

VTC nhập 2 số thực từ bàn phím . Hiển Thị kết quả theo phép tính

Ngọc Mai_NBK
4 tháng 4 2021 lúc 14:38

Trả lời:

Uses Crt; Var a, b, kq: Real; Pt: Char;

BEGIN

Clrscr;

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

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

Write ('Phep tinh can thuc hien la (+ - * /): ');

Readln(Pt);

If Pt = '+’ Then kq := a + b;

If Pt = '-’ Then kq := a - b;

If Pt = '*’ Then kq := a * b;

If Pt = '/’ Then kq := a / b;

Write (a, pt, b, '=', kq);

Readln;

END.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Trần Hà Thư
Xem chi tiết
User
Xem chi tiết
Long Nguyễn phi
Xem chi tiết
LOLILOLI
Xem chi tiết
Hải Hà
Xem chi tiết
hà văn hôi
Xem chi tiết
Tali
Xem chi tiết
Dương
Xem chi tiết
Hải Hà
Xem chi tiết