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.

19 tháng 12 2022

var a,b: integer;
begin
writeln('nhap a= '); readln(a);
writeln('nhap b= '); readln(b);
writeln('(a+b)*(a-b) = ', (a+b)*(a-b));
end.

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.

 

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.

30 tháng 10 2021

Câu 1: 

#include <bits/stdc++.h>

using namespace std;

double a,b,c;

int main()

{

cin>>a>>b>>c;

cout<<fixed<<setprecision(2)<<(a+b+c)/3;

return 0;

}

3 tháng 5

nbbnbnbbnn\(\dfrac{^{ }}{ }\)

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.

 

uses crt;

var a,b:int64;

begin

clrscr;

readln(a,b);

writeln(a+b);

readln;

end.

29 tháng 7 2023

đitf

29 tháng 4 2021

Program HOC24;

var a: array[1..32000] of integer;

i,n,d: integer;

begin

write('Nhap N: ');

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

write('Day vua nhap la: '); 

for i:=1 to n do write(a[i],' '); writeln;

d:=0;

for i:=1 to n do if a[i]>0 then d:=d+1;

write('Co ',d,' so duong');

readln

end.