Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

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.

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;

}

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

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!

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

 

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.

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.

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.

NgocTuan
3 tháng 1 2022 lúc 20:13

alo

Lê thị anh thư
Xem chi tiết
Vũ Minh Quân
Xem chi tiết
Phía sau một cô gái
16 tháng 4 2023 lúc 20:34

program Tong_Binh_Phuong_So_Chan;

uses crt;

var n, i, sum: integer;

begin

     clrscr;

     write('Nhap vao so nguyen n (6 < n < 30): ');

     readln(n);

     sum := 0;

     for i := 2 to n do

          if i mod 2 = 0 then

               sum := sum + i * i;

     writeln('Tong binh phuong cac so chan tu 1 den ', n, ' la: ', sum);

     readln;

end.

Do Ngoc Thao My
Xem chi tiết
Edward Paros
16 tháng 4 2023 lúc 22:05

program TimBoi4ChuSo;
var
  n, i: integer;
begin
  repeat
    writeln('Nhap vao so nguyen n (2<n<100): ');
    readln(n);
  until (n > 2) and (n < 100);
  
  writeln('Cac boi cua ', n, ' co 4 chu so la: ');
  for i := 1000 to 9999 do
  begin
    if i mod n = 0 then
      writeln(i);
  end;
end.