Những câu hỏi liên quan
Hồng Nhung_8B
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 3 2022 lúc 20:21

uses crt;

var n:real;

begin

clrscr;

repeat

readln(n);

if (n<1) or (n>10) then writeln('Hay nhap lai');

until (1<=n) and (n<=10);

readln;

end.

Bình luận (0)
Đoàn Lê Na
Xem chi tiết
khanh
12 tháng 3 2019 lúc 20:59

mình thách bạn cũng với đề ấy trong chương trình scratch

Bình luận (0)
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)
Nguyễn Thị Yến Nhi
Xem chi tiết
Nguyễn Thị Ngọc Anh
2 tháng 1 2022 lúc 21:44

 

program;

uses crt;

var a:longint;

begin

clrscr;

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

if(a>=0)and(a<=50)then write('n nam trong khoang tu 1 den 50')

else write('n khong nam trong khoang tu 1 den 50');

readln;

Bình luận (0)
Nguyễn Lê Phước Thịnh
2 tháng 1 2022 lúc 21:47

#include <bits/stdc++.h>

using namespace std;

int a;

int main()

{

cin>>a;

if ((a>=1) and (a<=50)) cout<<"YES";

else cout<<"NO";

return 0;

}

Bình luận (1)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
30 tháng 5 2019 lúc 5:50

Bình luận (0)
Cao Minh Thảo
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 12 2021 lúc 12:22

#include <bits/stdc++.h>
using namespace std;
string st;
int d,i,kt;
char x,ln;
int main()
{
    getline(cin,st);
    d=5;
    x=st[2];
    ln=st[0];
    for (i=1; i<=d-1; i++)
      if (ln<=st[i]) ln=st[i];
    if (ln==x) cout<<"YES";
    else cout<<"NO";
    return 0;
}

 

Bình luận (0)
Utfg aghjn
Xem chi tiết
Thư Uyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
26 tháng 3 2021 lúc 20:05

Bài 1: 

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

i:=1;

while i<=n do 

  begin

s:=s+i;

inc(i);

end;

writeln('Tong cac so trong khoang tu 1 den ',n,' la: ',s);

readln;

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
26 tháng 3 2021 lúc 20:07

Bài 2: 

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

i:=1;

while i<=n do 

  begin

s:=s+i;

i:=i+2;

end;

writeln('Tong cac so le trong khoang tu 1 den ',n,' la: ',s);

readln;

end.

Bình luận (0)
NgocTuan
3 tháng 1 2022 lúc 20:13

alo

Bình luận (0)
Lê Tâm Anh
Xem chi tiết
gấu béo
7 tháng 5 2023 lúc 19:20

program Le_Nho_Hon_Hoac_Bang_n;

uses crt;

var

       n, i: integer;

begin

       clrscr;

       write('Nhap vao mot so nguyen duong n: ');

       readln(n);

       while n <= 0 do

       begin

              writeln('So ban nhap khong hop le. Xin vui long nhap lai: ');

              readln(n);

       end;

       clrscr;

       writeln('Cac so le nho hon hoac bang ', n, ' la:');

       i := 1;

       while i <= n do

       begin

              if i mod 2 <> 0 then

                     writeln(i);

              i := i + 1;

       end;

       readln;

end.

Bình luận (0)