Viết chương trình sử dụng vòng lặp While …do để tính tổng các số chẳn nhỏ hơn n hoặc bằng n (n được nhập từ bàn phím)

var i,n: integer;

s:longint;

begin

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

s:=0;

i:=1;

while i<=n do

begin

s:=s+i; i:=i+1;

end;

write('tong cua',n,' so tu nhien dau tien la',s);

readln

end.

Viết chương trình viết kiểm tra số nhập vào có phải là số lẻ hay không

Program Chan_le;

uses crt;

var a: integer;

begin

clrscr;

write('nhap vao so a ='); readln(a);

if ( a mod 2 = 0 ) then write(' a la so chan ')

else

write('a la so le ');

readln;

end.

Viết chương trình sử dụng vòng lặp While …do để tính tổng các số chẳn nhỏ hơn n hoặc bằng n (n được nhập từ bàn phím)

`pascal`

uses crt;
var n,s,i:longint;
begin
clrscr;
readln(n);
i:=1;
s:=0;
while i<=n do
begin
if i mod 2=0 then s:=s+i;
i:=i+1;
end;
writeln(s);
readln
end.

`python`

n=int(input())
s=0
i=1
while (i<=n):
    if i%2==0:
        s=s+i 
    i+=1 
print(s)

Viết chương trình viết kiểm tra số n vừa nhập vào có phải là số lẻ hay không

`pascal`

var n:longint;
begin
readln(n);
if n mod 2=1 then writeln(n,' la so le');
readln
end.

`python`

n=int(input())
if n%2==1:
    print(n," là số lẽ ")