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.

24 tháng 11 2021

Used crt;

Var a,b;

Begin

Clrscr;

Writeln(‘Nhap a:’);Readln(a);

Write(‘Nhap b:’);Readln(b);

Clrscr;

Writeln(‘Tong la:’,a+b);

If m>n then writeln(‘Hieu la:’,a-b) else writeln(‘Hieu la:’,b-a);

Writeln(‘Tich la:’,a*b);

If n<>0 then write(‘Thuong la:’,a:b) else if m<>0 then write(‘Thuong la:’,b:a) else write(‘ Ko tinh dc’);

Readln;

End.

Học rnha

Câu 1: 

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

write(a+b);

readln;

end.

Câu 2:

uses crt;

var a,b,c:integer;

begin

clrscr;

readln(a,b,c);

writeln(a+b-c);

readln;

end.

Câu 3: 

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln(a-b);

readln;

end.

Câu 4: 

uses crt;

var x,y,z:integer;

begin

clrscr;

readln(x,y,z);

writeln((x+y)*z);

readln;

end.

15 tháng 11 2021

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<a*b<<endl;

cout<<fixed<<setprecision(2)<<(a*1.0)/(b*1.0);

return 0;

}

13 tháng 3 2023

Program HOC24;

var a,b: integer;

D: longint;

begin

write('Nhap a: '); readln(a);

write('Nhap b: '); readln(b);

D:=2*(a+b);

write('D = ',D);

readln

end.

22 tháng 3 2021

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.

16 tháng 12 2021

Uses crt;

Var a, b, c:real;

Begin

Readln(a);

Readln(b);

Readln(c);

If (a + b > c) or (a + c > b) or (b + c > a) then writeln('tam giác')

Else writeln('Khong phai tam giac');

Readln

End.

Câu 1: 

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

write('Nhap n='); readln(n);

s:=1;

for i:=1 to n do

s:=s*i;

writeln(s);

readln;

end.

Câu 2: 

uses crt;

var t,i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

t:=0;

for i:=1 to n do

t:=t+i;

writeln(t);

readln;

end.