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.

16 tháng 10 2021

GIÚP VS MN<3

 

16 tháng 10 2021

Giup mik vs nha <3

 

25 tháng 4 2023

program Tinh_Day_So;
var
  n, i, x, dem: integer;
  max, a: integer;
begin
  write('Nhập số ptử của dãy: ');
  readln(n);
  writeln('Nhập các ptu của dãy:');
  for i := 1 to n do
  begin
    readln(x);
    a := a + x;  
    if x mod 2 = 0 then
      dem := dem + 1; 
    if x > max then
      max := x; 
  end;
  writeln('Tổng dãy là: ', a);
  writeln('Số ptu chẵn là: ', dem);
  writeln('Gtln của dãy là: ', max);
end.

20 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long a,b,c,t;

int main()

{

cin>>a>>b>>c;

t=0;

if (a%2!=0) t=t+a;

if (b%2!=0) t=t+b;

if (c%2!=0) t=t+c;

cout<<t;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long i,a[100],n;

int main()

{

freopen("songuyen.txt","r",stdin);

n=20;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++) cout<<a[i]<<" ";

return 0;

}

19 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long a,b,c,t;

int main()

{

cin>>a>>b>>c;

t=0;

if (a%2!=0) t=t+a;

if (b%2!=0) t=t+b;

if (c%2!=0) t=t+c;

cout<<t;

return 0;

}

19 tháng 3 2023

Câu 1:

Program HOC24;

var i,p: integer;

t: longint;

begin

write('Nhap P: '); readln(p);

t:=0;

for i:=1 to p do if i mod 2<>0 then t:=t+i;

write('Tong cac so le la: ',t);

readln

end.

19 tháng 3 2023

Câu 2:

Program HOC24;

var i,n: integer;

t: longint;

begin

write('Nhap N: '); readln(n);

t:=0;

for i:=1 to n do if i mod 2=0 then t:=t+i;

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

readln

end.

15 tháng 1 2018

uses crt;

var a,b,c,s,x:integer;

begin

clrscr;

write('hs_lop');

writeln('nhap 3 so=');readln(a,b,c);

begin

s:=a+b+c;

writeln('tong la:',s);

x:=a*b*c;

writeln('tich la:',x);

end;

if a mod 2 =0 then writeln(a,'la so chan')

else write('a,'la so le');

readln;

end.

mình ko chắc pn kt thử xem

uses crt;

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

i,n,dem:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

dem:=0;

for i:=1 to n do 

  if (10<a[i]) and (a[i]<20) then inc(dem);

writeln(dem);

readln;

end.

13 tháng 4 2021

Em cảm ơn ạ!