Viết chương trình nhập vào 2 số a và b và tính A=3. giúp mình mình cần gấppp

2 câu trả lời

program tinh;

uses crt;

var a, b, A:real;

begin

clrscr;

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

A:=3*a+b;

write('A=',A);

readln

end.

$#QLinkVN$

CẤU TRÚC CHƯƠNG TRÌNH CỤ THỂ NHƯ SAU:

program nhanhthoi;
uses crt;
var a,b,PT: integer;
begin
clrscr;
writeln('Nhap gia tri a: '); readln(a);
writeln('Nhap gia tri b: '); readln(b);
PT:=3*a+b;
writeln('Vay bieu thuc A co gia tri la: ',PT);
readln;
end.

Câu hỏi trong lớp Xem thêm