Viết công thức kiểm tra 1 số là số nguyên dương
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.
12 tháng 1 2023
uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if i mod 2=0 then write(i:4);
writeln;
for i:=1 to n do
if i mod 2=1 then write(i:4);
readln;
end.
12 tháng 1 2023
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
write((a+b)*2);
readln;
end.
12 tháng 1 2023
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln((a+b)*2);
writeln(a*b);
readln;
end.
11 tháng 1 2023
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
s:=s+i*i;
write(s);
readln;
end.
KV
11 tháng 1 2023
uses crt;
var n,i,s:integer;
begin
Write('Nhap n = '); readln(n);
s:=0;
for i:=1 to n do
s:=s+i*i;
write(s);
readln;
end.
NP
0
uses crt;
var n:integer;
begin
clrscr;
readln(n);
if n>0 then write('nguyen duong')
else write('khong nguyen duong');
readln;
end.