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.

26 tháng 2 2021

Program HOC24;

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

i,n: integer;

t: longint;

begin

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

t:=0;

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

write('Tong cac phan tu o vi tri le la: ',t);

readln

end.

uses crt;

var a:array[1..250]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) and (i mod 2=0) then t:=t+a[i];

writeln(t);

readln;

end.

1:

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

t:=t+i*i;

write(t);

readln;

end.

4 tháng 4 2023

2

program bt2;

var i,n,t:integer;

begin

readln(n);

s:=0;

for i:=1 to n do

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

readln;

end.

23 tháng 5 2022

program trungbinh;

uses crt;

var n,i: integer;

      s:real;

      A: array[1..1000] of integer;

begin

clrscr;

write('Nhap do dai day: '); readln(n);

writeln('Nhap gia tri cua day: ');

S:=0;

for i:=1 to n do

begin

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

readln(A[i]);

S:=S+A[i];

end;

S:=S/n;

write('Trung binh cua cac so cua day do la: ',S);

readln;

end.

24 tháng 12 2022

Cau 1:

Câu 2:

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n>0 && n%5==0) cout<<"Phai";

else cout<<"Khong phai";

}

23 tháng 12 2020

Nhập n xong rồi làm gì nữa bạn?

24 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

long long n,x;

int main()

{

cin>>n;

x=sqrt(n);

if (x*x==n) cout<<n<<" la so chinh phuong";

else cout<<n<<" khong la so chinh phuong";

return 0;

}

28 tháng 11 2021

Tham khảo

 

  
10 tháng 5 2022

thiếu đề?

10 tháng 5 2022

hình như thiếu đề r .-.