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.

uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

if n mod i=0 then write(i:4);

readln;

end.

20 tháng 2 2023

Câu lệnh sai ở đây là write('Gia tri cua i la: ',i);.

Phải sử dụng câu lệnh writeln('Gia tri cua i la: ',i); để ghi ra giá trị của i trên màn hình.

21 tháng 2 2023

Tất cả câu lệnh đều đúng.

21 tháng 2 2023

Giúp mình ý tưởng bài đỉnh đồi pascal

 

21 tháng 2 2023

Cho mình ý tưởng bài này với!loading...  

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

if i mod 2=0 then t:=t+i;

write(t);

readln;

end.

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

if i mod 2=0 then t:=t+i;

write(t);

readln;

end.

uses crt;

var ln,x,i,n:integer;

begin

clrscr;

ln:=MAXINT;

readln(n);

for i:=1 to n do

begin

readln(x);

if ln<x then ln:=x;

end;

write(ln);

readln;

end.

1:

uses crt;

var t,x,i,n:integer;

begin

clrscr;

t:=0;

n:=10;

for i:=1 to n do

begin

readln(x);

t:=t+x;

end;

write(t);

readln;

end.

2: 

uses crt;

var dem,x,i,n:integer;

begin

clrscr;

dem:=0;

n:=10;

for i:=1 to n do

begin

readln(x);

if x mod 2=0 then inc(dem);

end;

write(dem);

readln;

end.

4 tháng 4 2023

3

program Cacsole;
uses crt;
var M, N, i: integer;
begin
clrscr;
write ('Nhap M= '); readln(M);
write ('Nhap N= '); readln(N);
for i := M to N do

if  i mod 2 = 1 then
write (i,' ');
readln;
end.