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.

23 tháng 12 2022

Chương trình: 
program (đặt tên tùy theo đề bài)
uses Crt;
begin
clrscr;
writeln('nhap a');
readln(a);
writeln('nhap b');
readln(b);
writeln('nhap c');
readln(c);
writeln('tong a,b,c=',a+b+c);
End.

24 tháng 12 2022

Nếu bạn muốn số nó hiển thị số mà bạn nhập từ bàn phím khi chạy chương trình 0 có hiện a,b,c, thì xài là

writeln('Tong cua' ,a, ' vs ' ,b, ' vs ' ,c, ' là  ',a+b+c);

 

 

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.

24 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

double a,b,c,p;

int main()

{

cin>>a>>b>>c;

p=a+b+c;

cout<<fixed<<setprecision(2)<<p;

return 0;

}

uses crt;

var a,b,c,max,t:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

max:=a;

if max<b then max:=b;

if max<c then max:=c;

t:=a+b+c;

writeln('Tong cua 3 so la: ',t);

writeln('So lon nhat trong 3 so la: ',max);

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;

}

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln('Tong hai so la: ',a+b);

writeln('Tong binh phuong hai so la: ',sqr(a)+sqr(b));

readln;

end.

24 tháng 10 2021

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

}

Câu 2: 

a) Mô tả thuật toán

-Bước 1: Nhập n và nhập dãy số

-Bước 2: dem←0; i←1; t←0;

-Bước 3: Nếu a[i] mod 2=0 thì dem←dem+1 và t←t+a[i];

-Bước 4: i←i+1;

-Bước 5: Nếu i<=n thì quay lại bước 3

-Bước 6: Xuất t và dem

-Bước 7: Kết thúc

Câu 2: 

b) uses crt;

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

i,n,t,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

t:=0;

dem:=0;

for i:=1 to n do 

 if a[i] mod 2=0 then 

begin

t:=t+a[i];

inc(dem);

end;

writeln('So so chan la: ',dem);

writeln('Tong cac so chan la: ',t);

readln;

end.

14 tháng 10 2021

Câu 1:

Uses crt;

Var a,b:real;

Begin

Clrscr;

Readln(a);

Readln(b);

Writeln((a+b)/(a-b));

Readln

End.

 

14 tháng 10 2021

Câu 2:

Uses crt;

Var a,b,c:real;

Begin

Clrscr;

Readln(a);

Readln(b);

Readln(c);

Writeln(a*a+b*b+c*c);

Readln

End.