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.

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.

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.

 

24 tháng 5 2021

Program T_J;

Uses crt;

Var x:real;

Begin

  Clrscr;

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

   writeln(' ket qua cua bieu thuc (',x,'-2)^2(',x,' + 2) + ( ',x,' + 2) la ',(x - 2)*(x-2)*(x+2)+(x+2));

  readln

end.

 

21 tháng 12 2021

program So_sanh;

uses crt;

var a, b: integer;

begin

writeln('Nhap so thu nhat');

readln(a);

writeln('Nhap so thu hai');

readln(b);

if a > b then write(a, '>' b) else write(a, '<' b);

end.

 

26 tháng 10 2021

uses crt;

var a,b:int64;

begin

clrscr;

readln(a,b);

writeln(1/sqr(a)+1/sqr(b):4:2);

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.