Viết chương trình nhập vào 2 số a, b in ra màn hình giá trị của 7 hằng đẳng thức của a và b
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
LM
10 tháng 11 2022
program vd2;
uses crt;
var x,y:integer;
S:real;
begin
readln(x,y,S);
S:=(x+y+5)/3;
write(S);
readln;
End.
NH
0
ML
6 tháng 11 2022
Program Tinh_trungbinhcong;
Uses CRT;
Var a,b: Byte; TBC: Realn -> SỬA: Var a,b: Byte; TBC: Real;
Begin
Clrscr;
Write('Nhap gia tri a = ');Readln(a);
Write('Nhap gia tri b = ');Radln(b);
TBC := (a + b)/2;
Writeln('Trung binh cong cua ',a, 'va',b, ' = ', TBC:4:2); Readln;
End.
PP
0