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 2021

#include <bits/stdc++.h>

using namespace std;

long long a,b,c,d;

int main()

{

cin>>a>>b>>c>>d;

cout<<a+b+c+d;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long a,b,c,d,t;

int main()

{

cin>>a>>b>>c>>d;

t=a+b+c+d;

cout<<t;

return 0;

}

19 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long a,b,c,d;

int main()

{

cin>>a>>b>>c>>d;

cout<<a+b+c+d;

return 0;

}

7 tháng 11 2021

Program tinh_tong;

uses crt;

var a,b:Integer;

begin

Write('Nhap gia tri a: ');

Readln(a);

Write('Nhap gia tri b: ');

Readln(b);

Writeln('Tong: ',a+b);

Readln();

end.

uses crt;

var a,b,x,t,i:integer;

begin

clrscr;

readln(a,b,x);

t:=0;

for i:=a to b do 

  if i mod x=0 then t:=t+i;

writeln(t);

readln;

end.

12 tháng 5 2021

program Tinhtong;

uses crt;

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

sum,n:integer;

 

begin clrscr;

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

for i:=1 to n do

begin

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

end;

sum:=0;

for i:=1 to n do

if (a[i] mod 2 = 0) then sum:=sum+a[i];

 

write('Tong cac so chan = ',sum);

readln;

end.

12 tháng 5 2021

cảm ơn bạn nha ,nhờ bạn mình nộp kịp bài

13 tháng 3 2021

Program HOC24;

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

t: longint;

begin

write('Nhap a; b; c; d: '); readln(a,b,c,d);

t:=a+b+c+d;

writeln('Tong 4 so tren la: ',t); 

max:=a;

if max<b then max:=b;

if max<c then max:=c;

if max<d then max:=d;

write('So lon nhat cua chung la: ',max);

readln

end.

*Cách khác:

uses crt;

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

begin

clrscr;

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

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

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

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

writeln('Tong cua 4 so la: ',a+b+c+d);

max:=a;

if max<b then max:=b;

if max<c then max:=c;

if max<d then max:=d;

writeln('Gia tri lon nhat la: ',max);

readln;

end.

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do 

  if a[i] mod 2<>0 then t:=t+a[i];

writeln(t);

readln;

end.

Em cảm ơn nhiều ạ!

11 tháng 5 2022

làm trên microsoft hay pascal z :?

uses crt;

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

i,n,t:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

for i:=1 to n do write(a[i]:4);

writeln;

for i:=1 to n do 

  if (a[i] mod 2<>0) then write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do t:=t+a[i];

writeln(t);

writeln(t/n:4:2);

readln;

end.