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.

17 tháng 12 2021

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

 

27 tháng 3 2021


program tinhtong;

uses crt;

var i, n, s: integer;

begin clrscr;

Write('N so tu nhien dau tien la: ');

readln(n);

s:=0;

i:=1;

while i<=n do begin

s:=s+i;

i:=i+1;

end;

writeln('Tong cac so la: ',s);

readln

end.

 

27 tháng 3 2021

giúp mình câu này luôn nhé

In ra màn hình trung bình của cấc số đã cho ở trên.
liên quan bài trên 

16 tháng 4 2023

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.

 

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

19 tháng 1 2022

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

18 tháng 4 2023

program MultiplesOfN;
var
  n, i: integer;
begin
  repeat
    write('Nhap vao so nguyen duong n (0<n<100): ');
    readln(n);
  until (n > 0) and (n < 100);

  writeln('Cac boi so cua ', n, ' co 4 chu so la:');

  for i := 1000 to 9999 do
  begin
    if (i mod n = 0) then
    begin
      writeln(i);
    end;
  end;

  readln;
end.

18 tháng 4 2023

em cảm ơn nhé ạ

22 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long a,b,t;

int main()

{

cin>>a>>b>>t;

if (t==a+b) cout<<"chuc mung ban da tinh dung";

else cout<<"rat tiec ban da lam sai";

return 0;

}

6 tháng 4 2022

lỗi r bn

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

29 tháng 4 2023

Var a:array[1..20] of integer;

i,n,d:integer;

Begin

For i:=1 to 20 do

Begin

Write('Nhap phan tu thu ',i);readln(a[i]);

if a[i] = 3 then d:=d+1;

End;

Write('Co ',d,' chu so 3');

Readln

End.