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 10 2016

Uses crt;

Var a,b : integer;

Begin

Writeln('Tong hai so a va b la= ', a + b );

Readln;

End.

21 tháng 10 2016

Cho phép viết lại :)

Uses crt;

Var a,b:integer;

Begin

clrscr;

Writeln('Nhap so a = '); Readln(a);

Writeln('Nhap so b = '); Readln(b);

Writeln('Tong hai so a va b la = ',a+b);

Readln;

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.

25 tháng 12 2021

uses crt;

var a,b,c:longint;

begin

clrscr;

readln(a,b,c);

writeln(a*b*c);

readln;

end.

Đề thiếu rồi bạn

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{^{ }}{ }\)

Bài 1:

uses crt;

var i,s:integer;

begin

clrscr;

s:=0;

for i:=10 to 50 do

  if i mod 2=0 then s:=s+i;

writeln(s);

readln;

end.

Bài 2: 

uses crt;

var a,i,n:integer;

begin

clrscr;

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

a:=0;

for i:=1 to n do

a:=a+i*(i+2);

writeln(a);

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;

}

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.

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