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.

15 tháng 9 2019

write('N='); readln(N);

15 tháng 9 2019

????

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.

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 .-.

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.

29 tháng 10 2021

#inckude <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

t=0;

for (i=1;i<=n; i++)

if (i%2==0) t=t+i;

cout<<t;

return 0;

}

24 tháng 12 2022

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

}

Câu 1: 

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

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

s:=1;

for i:=1 to n do

s:=s*i;

writeln(s);

readln;

end.

Câu 2: 

uses crt;

var t,i,n:integer;

begin

clrscr;

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

t:=0;

for i:=1 to n do

t:=t+i;

writeln(t);

readln;

end.