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.
Dưới đây là một vài câu hỏi có thể liên quan tới câu hỏi mà bạn gửi lên. Có thể trong đó có câu trả lời mà bạn cần!
TG
12 tháng 5 2021
Câu 2:
Program nii;
Uses crt;
Var a,b,c,A:integer;
Begin
Write ('nhap a');
Readln (a);
Write ('nhap b');
Readln (b);
Write ('nhap c');
Readln (c);
A:=a;
If A<b then A:=b;
If A<c then A:=c;
Write ('Ket qua',A);
Readln;
End.
TG
12 tháng 5 2021
Câu 1
Program ntg;
Uses crt;
Var A,x,y:integer;
Begin
Write ('nhap x');
Readln (x);
Write ('nhap y');
Readln ('y');
A:=x+y;
Write ('Ket qua',A);
Readln;
End.
19 tháng 11 2021
program tin_hoc;
uses crt;
var b,c,d,A:realn;
begin
clrscr;
write('nhap so b');readln(b);
write('nhap so c');readln(c);
write('nhap so d');readln(d);
A:=(b+c)/d;
writeln('A=');
end.
program tinh;
uses crt;
var a;b:integer;
C:real;
begin
clrscr;
write('ban hay nhap so nguyen a,a='); read(a);
write('ban hay nhap so nguyen b,b='); read(b);
C=a*b/2;
write('gia tri bieu thuc C la,C=',C);
delay(5000);
end.