Question

1. Viết chương trình nhập vào môg số nguyên N và kiểm tra xem số đó là số âm hay số dương

2. Viết chương trình tính tổng các số lẻ từ 1->20 sau đó xuất tổng vừa tính được

Answer 1

quá dễ

1: uses crt;
var n:integer;
begin
clrscr;
write('n='); readln(n);
if n>0 then writeln(n,' la so duong');
if n<0 then writeln(n,' la so am');
readln;
end.

2:

uses crt;
var t,i:integer;
begin
clrscr;
t:=0;
for i:=1 to 20 do
if i mod 2=1 then t:=t+i;
writeln('tong cac so le trong khoang tu 1 den 20 la: ',t);
readln;
end.

Answer 2

1.

Program bai1 ;

Uses crt ;

Var a : integer ;

Begin

CLRSCR ;

Writeln ( ' nhap so a = ' ) ;

Readln (a);

if a>0 then writeln ( ' a la so duong ' ) else

Writeln ( ' a la so am ' ) ;

Readln ;

End .