Những câu hỏi liên quan
Trần Nhật Kiều Oanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 1 2022 lúc 10:10

Đề thiếu điều kiện rồi bạn

Bình luận (0)
Kiều Vũ Linh
19 tháng 1 2022 lúc 8:49

Thêm mật khẩu là gì nữa em ơi!

Bình luận (0)
Phan Thu
Xem chi tiết
Nga Nguyen
6 tháng 4 2022 lúc 14:55

lỗi r bn

Bình luận (0)
LÊ NGỌC DIỄM MY
Xem chi tiết
Nguyệt Minh
4 tháng 4 2018 lúc 20:40

Program Nhap;
Uses Crt;
Var N: Integer;
Begin
Repeat
writeln('Nhap N:'); Readln(N);
until N=-1;
write('CT ket thuc');
readln
End.

Bình luận (0)
Utfg aghjn
Xem chi tiết
Yi Ling
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 12 2021 lúc 9:13

#include <bits/stdc++.h>

using namespace std;

long long n,i,t;

int main()

{

cin>>n;

if ((n>10) and (n<70))

{

t=0;

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

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

cout<<t;

}

else cout<<"Nhap lai";

return 0;

}

Bình luận (0)
bar em
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 12 2021 lúc 11:53

Đề thiếu điều kiện rồi bạn

Bình luận (0)
Nguyễn Thị Thu Thúy
Xem chi tiết
Nguyễn Lê Phước Thịnh
13 tháng 5 2021 lúc 9:37

uses crt;

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

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

writeln('Day so vua nhap la: ');

for i:=1 to n do 

  write(a[i]:4);

writeln;

writeln('Day cac so chan la: ');

for i:=1 to n do 

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

readln;

end.

Bình luận (0)
Như Nguyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 3 2021 lúc 13:03

uses crt;

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

i,n:integer;

s:real;

begin

clrscr;

repeat

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

until n>0;

for i:=1 to n do 

begin

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

end;

s:=1;

for i:=1 to n do 

  s:=s*a[i];

writeln(s:0:0);

readln;

end.

Bình luận (1)
Bùi Minh Dũng
Xem chi tiết
nguyễn an phát
26 tháng 5 2021 lúc 21:14

program max_min;

uses crt;

var i,n:integer;

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

begin

clrscr;

write('nhap n:');readln(n);

for i:=1 to n do

begin

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

end;

writeln('day vua nhap la:');

for i:=1 to n do

write(a[i]:3);

readln;

end.

Bình luận (0)