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.

9 tháng 3 2022

program Add;
uses crt;
var a,b: real;
begin
    write('Nhập a: ');
    readln(a);
    write('Nhập b: ');
    readln(b);
    writeln(a+b:0:0);
end.

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.

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln(a+b);

readln;

end.

21 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;

return 0;

}

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

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.