viết chương trình pascal nhập n xuất ra màn hình dòng 1. các số chẵn từ 2 đến n dòng 2. các số lẻ từ 2 đến n dòng 3. các số chẵn và chia hết cho cả 3 và 6 từ 1 đến n dòng 4. tổng các số lẻ từ 1 đến n giúp mình vs

hoahoc9.hv

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 25 xem

1 trả lời

Thích Trả lời

thuphuong102

Program BTT;
Uses crt;
Var n,i,t: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);

Write('Cac so chan tu 2 -> ',n,' la: ');
For i:=2 to n do
If i mod 2 = 0 then Write(i,' ');
Writeln;

Write('Cac so le tu 2 -> ',n,' la: ');
For i:=2 to n do
If i mod 2 = 1 then Write(i,' ');

Writeln;

Write('Cac so chan chia het cho 3 va 6 tu 1 -> ',n,' la: ');
For i:=1 to n do
If (i mod 2 = 0) and (i mod 3 = 0) and (i mod 6 = 0) then Write(i,' ');
Writeln;

t:=0;
For i:=1 to n do
If i mod 2 = 1 then t:=t+i;
Write('Tong cac so le tu 1 -> ',n,' la: ',t);

Readln
End.

Vote (0) Phản hồi (0) 2 năm trước

123abc

uses crt;
var n,i,s:longint;
begin
clrscr;
readln(n);
write('Cac so chan tu 2 den ',n,': ');
for i:=2 to n do
if (i mod 2=0) then write(i,' ');writeln;
write('Cac so le tu 2 den ',n,': ');
for i:=2 to n do
if (i mod 2=1) then write(i,' '); writeln;
write('Cac so chan ma chia het cho ca 3 va 6 tu 1 den ',n,': ');
for i:=1 to n do
if (i mod 2=0) and (i mod 3=0) and (i mod 6=0) then
write(i,' ');writeln;
for i:=1 to n do
if (i mod 2=1) then inc(s,i);
writeln('Tong cac so le tu 1 den ',n,': ',s);
readln;
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

cho biểu thức P = x-13/ √x-9 -2 với x # 13 , x>=9 rút gọn P

Nêu quy trình thực hiện cắm hoa. Vẽ sơ đồ cắm hoa dạng cơ bản của dạng cắm hoa thẳng đứng, nghiêng, toả tròn?

Từ các chữ số 1 2 3 4 5 6 7 8 9 có thể lập được bao nhiêu số tự nhiên có 4 chữ số nhỏ hơn 2811

Cần gấp ạ !!!!!!!! Hãy viết 1 đoạn văn ( khoảng nửa trang giấy ) trình bày suy nghĩ của em về câu " Làng thì yêu thật , nhưng làng theo Tây mất rồi thì phải thù " trong truyện ngắn " Làng " của Kim Lân

Cho hàm số bậc nhất y =( 1-4m) x+3 a) Tìm m để hàm số đã cho là hàm số bậc nhất b) Tìm m để hàm số đã cho đồng biến nghịch biến

Cho hình chóp SABCD có đáy là hình bình hành. trên đoạn SA và BC lần lượt lấy các điểm M,N sao cho SA=3SM, BC = 3BN. Chứng minh đường thẳng BM song song với mặt phẳng (SDN).

Đóng vai người bị bệnh được thái y lệnh họ Phạm cứu sống

Câu 1: Hãy lấy ví dụ để chứng tỏ rằng: "Hệ thống từ ngữ xưng hô trong tiếng việt rất đa dạng, phong phú, tinh tế, và giàu sắc thái biểu cảm. Câu 2: Em có nhận xét gì về hệ thống từ ngữ xưng hô trong tiếng việt. ---> Mọi người giúp em với... Mai em kiểm tra rồi EM CẢM ƠN <3

Cho hình vẽ: E1=E2=5V r1 =r2= 0,5 R1=2 ; R2= 6; R3= 3 R3 là bình điện phân có điện cực làm bằng Cu và dung dịch chất điện phân CuSO4 Tìm số chỉ Ampe kế và tính hiệu điện thế mạch ngoài Tính lượng Cu bám vào catot của bình điện phân R3 sau 1 giờ biết Cu có A=64 n=2

Giúp mình từ câu 1 đến câu 10 trong ảnh với ạ Xin cảm ơn nhiều P/s: Khá ghét admin đấy :)

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến