Những câu hỏi liên quan
Nguyến Ngọc Nguyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 2 2021 lúc 14:56

Bài 1:

uses crt;

var i,s:integer;

begin

clrscr;

s:=0;

for i:=10 to 50 do

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

writeln(s);

readln;

end.

Bài 2: 

uses crt;

var a,i,n:integer;

begin

clrscr;

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

a:=0;

for i:=1 to n do

a:=a+i*(i+2);

writeln(a);

readln;

end.

Đỗ Trọng TÍn
Xem chi tiết
Kiều Vũ Linh
29 tháng 4 2023 lúc 7:52

Câu 3:

Var i,n:integer:

Begin

Write('n = ');readln(n);

Write('Cac uoc cua n la ');

For i:=1 to n do

If n mod i = 0 then write(i:8);

Readln

End.

Kiều Vũ Linh
29 tháng 4 2023 lúc 7:56

Câu 4

Var i,n:integer:

Begin

Write('n = ');readln(n);

Write('Cac so le nho hon n la ');

For i:=1 to n - 1 do

If i mod 2 <> 0 then write(i:8);

Readln

End.

Nguyễn Thị Tươi
Xem chi tiết
Phùng Tú Văn
Xem chi tiết
Sơn Mai Thanh Hoàng
20 tháng 2 2022 lúc 15:46

uses crt;

var i,n:integer;

begin

clrscr;

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

writeln('cac so chan trong khoang tu 1 toi ',n,' la:');

for i:=1 to n do

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

readln;

end.

Trần Thị Như Quỳnh 6/4
20 tháng 2 2022 lúc 15:48

program chan;

uses crt;

var i,n:integer;

begin

clrscr;

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

for i:=1 to n do

if i mod 2=0 then write('cac so chan tu 1 den n la:');

readln

end.

uses crt;

var i,n:integer;

begin

clrscr;

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

writeln('cac so chan trong khoang tu 1 toi ',n,' la:');

for i:=1 to n do

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

readln;

end.

nha bạn

 |~ Hok tốt ~|

Ngọc Vy
Xem chi tiết
HT.Phong (9A5)
22 tháng 2 2023 lúc 15:11

Uses crt;

var n,i: integer;

begin clrscr;

readln(n);

for i:=1 to n do if (n mod 2<>0) then 

write(i:2);

readln;

end.

Thủy Tiên
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 5 2022 lúc 23:27

uses crt;

var i,n,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do t:=t+i;

writeln(t);

readln;

end.

Đỗ Trọng TÍn
Xem chi tiết
Minh Lệ
28 tháng 4 2023 lúc 22:46

Câu 1:

Program HOC24;

var i,n: integer;

t: longint;

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

t:=1;

for i:=1 to n do t:=t*i;

write(n,'! = ',t);

readln

end.

Minh Lệ
28 tháng 4 2023 lúc 22:47

Câu 2:

Program HOC24;

var i,n: integer;

S: real;

begin

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

S:=0;

for i:=1 to n do S:=S+1/i;

write('S = ',s);

readln

end.

Alice
Xem chi tiết
Đỗ Trọng TÍn
Xem chi tiết
๖ۣۜHả๖ۣۜI
Xem chi tiết
Uyên  Thy
18 tháng 3 2022 lúc 21:05

Tham khảo
Bài 2.
Var i:integer;
begin
for i:=1 to 100 do
if i mod 2=0 then write(' Cac so chan tu 1 den 100 la: ',i,' ');
readln;
end.