VCT nhập N số tự nhiên đầu tiên in ra chẵn lẻ
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.
Những câu hỏi liên quan
LL
VCT in ra bình phương các số chẵn ( lẻ ) bé hơn n ( n nhập từ bàn phím ) Giúp mik vs, cam onn nhieuu
0
ML
19 tháng 3 2023
Câu 1:
Program HOC24;
var i,p: integer;
t: longint;
begin
write('Nhap P: '); readln(p);
t:=0;
for i:=1 to p do if i mod 2<>0 then t:=t+i;
write('Tong cac so le la: ',t);
readln
end.
ML
15 tháng 3 2023
Program HOC24;
var i,n: integer;
s: longint;
begin
write('Nhap n : '); readln(n);
s:=0;
for i:=1 to n do if i mod 2=0 then s:=s+i;
write('S = ',s);
readln
end.
22 tháng 3 2023
pascal
program sum_of_evens;
var
i, n, sum: integer;
begin
write('Enter a positive integer: ');
readln(n);
sum := 0;
for i := 2 to n step 2 do
begin
sum := sum + i;
end;
writeln('The sum of even numbers from 2 to ', n, ' is ', sum);
end.
26 tháng 12 2020
a) Tổng của 50 số tự nhiên đầu tiên
Xác định bài toán:
-Input: 50 số tự nhiên đầu tiên
-Output: Tổng của 50 số đó
Mô tả thuật toán:
-Bước 1: s←0; i←1;
-Bước 2: s←s+i;
-Bước 3: i←i+1;
-Bước 4: Nếu i<=n thì quay lại bước 2
-Bước 5: Xuất s
-Bước 6: Kết thúc
b) Kiểm tra a là số chẵn hay số lẻ
Xác định bài toán
-Input: Số a
-Output: Kiểm tra xem a là số chẵn hay số lẻ
Mô tả thuật toán
-Bước 1: Nhập a
-Bước 2: Nếu a chia hết cho 2 thì a là số chẵn
không thì a là số lẻ
-Bước 3: Kết thúc
21 tháng 11 2017
program bai1;
uses crt;
var a,b,c,s: real;
begin
clrscr;
write('nhap so thu nhat ='); readln(a);
write('nhap so thu hai ='); readln(b);
write('nhap so thu ba ='); readln(c);
s:=a+b+c;
writeln('tong ba so a,b,c =',s:4:2);
readln;
end.
21 tháng 11 2017
program bai1;
uses crt;
var n: integer;
begin
clrscr;
write('nhap so n ='); readln(n);
if n mod 2 = 0 then
writeln('la so chan ') else
writeln('la so le ');
readln;
end.
3 tháng 1 2021
uses crt;
var n,i:integer;
gt:real;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>=0;
gt:=1;
for i:=1 to n do
gt:=gt*i;
writeln(n,'!=',gt:0:0);
readln;
end.
program ChenLe;
varn, i, chan, le: integer;
begin
chan := 0;
le := 0;
writeln('Nhap so nguyen duong N: ');
readln(n);
for i := 1 to n do
begin
if (i mod 2 = 0) then
beginwriteln(i, ' la so chan');
chan := chan + 1;
end
else
begin
writeln(i, ' la so le');
le := le + 1;
end;
end;
writeln('Co ', chan, ' so chan va ', le, ' so le trong ', n, ' so dau tien');
readln;
end.