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.

11 tháng 4 2022

.

11 tháng 4 2022

.

16 tháng 3 2023

Tính tổng N số tự nhiên đầu tiên với N nhập từ bàn phím chứ bạn nhỉ?

19 tháng 3 2023

cô cho đề như thế, mà mình bt làm r

 

21 tháng 3 2023

program DemSoChiaHetCho5;
var
  n, i, count: integer;
begin
  write('Nhap n: ');
  readln(n);
  
  i := 1;
  count := 0;
  while i <= n do
  begin
    if i mod 5 = 0 then
      count := count + 1;
    i := i + 1;
  end;
  
  writeln('Co ', count, ' so tu nhien chia het cho 5 trong khoang tu 1 den ', n);
end.

 

cảm ơn ạ

13 tháng 3 2023

Program HOC24;

var i,n,t: integer;

begin

t:=0; i:=1;

while t<=500 do

begin

t:=t+i;

i:=i+1;

end;

write('Ket qua la: ',t);

readln

end.

21 tháng 3 2023

program DemSoChiaHetCho5;
var
  n, count, i: integer;
begin
  write('Nhap vao so n: ');
  readln(n);
  count := 0;
  i := 1;
  while i <= n do
  begin
    if i mod 5 = 0 then // kiem tra so i co chia het cho 5 khong
      count := count + 1;
    i := i + 1;
  end;
  writeln('So luong so tu nhien chia het cho 5 tu 1 den ', n, ' la: ', count);
end.

 

21 tháng 3 2023

c.mơn bn.

 

14 tháng 3 2023

Program HOC24;

var i,n: integer;

t: longint;

begin

write('Nhap N: '); readln(n);

if n<=5 then write('So vua nhap chua lon hon 15') else

begin

t:=0; i:=10;

while i<=n do

begin

t:=t+i;

i:=i+1;

end;

end;

write('Tong la: ',t);

readln

end.

3 tháng 3 2023

n = int(input('Nhập số n lớn hơn 2: '))

tong = 0

i = 2

while i <= n:

       tong += i

       i += 1

print('Tổng các số từ 2 đến', n, 'là:', tong)

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(s);

readln;

end.

ae nào giúp mình với ạ'