Thuật toán:

B1: Nhập số nguyên n

B2: Nếu n >0 thì in ra màn hình n là số dương; nếu n <0 thì in ra màn hình n là số âm; nếu n = 0 thì in ra màn hình n không dương cũng không âm.

B3. Kết thúc

Chương trình:

uses crt;

var n: integer;

begin

write('Nhap so N: '); readln(n);

if n > 0 then writeln(n,' la so nguyen duong') else if n = 0 then writeln(n,' khong la so am cung khong la so duong') else writeln(n, ' la so nguyen am');

end.

\(1+\dfrac{1}{x^2}+\dfrac{1}{y^2}+\dfrac{1}{2^2}\)

var a:array[1..1000] of integer;

n,i: integer;

tb: real;

begin

write('Nhap N = '); readln(n);

for i:=1 to n do 

begin

write('a[',i,'] = '); readln(a[i]);

end;

tb:=0;

for i:=1 to n do

tb:=tb+a[i];

tb:=tb/n;

for i:=1 to n do 

if a[i] > tb then writeln(a[i]);

readln

end.

uses crt;

var a:array[1..1000] of integer;

n,i: integer;

sa,d: integer;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

write('a[',i,'] = '); readln(a[i]);

end;

sa:=0;

d:=0;

for i:=1 to n do

if a[i] > 0 then d:=d+1 else if a[i] < 0 then sa:=sa+1;

writeln('Trong day co ',d,' so duong');

writeln('Trong day co ',sa,' so am');

readln

end.

1/ 

Giá trị sau khi chạy đoạn chương trình là:

2/ Tương tự, có lẽ là ntn đúng không:

a:=3 ;b:=3;c:=0; if a=b then c:=a-b+1 else c:=c+1;

KQ: 1

uses crt;

var n: integer;

begin

repeat write('Nhap n: '); readln(n); until n > 0;

writeln('Chu so tan cung la: ', n mod 10);

readln

end.

uses crt;

var i,n,s: integer;

a:array[1..100] of integer;

begin

writeln('Nhap n: '); read(n);

for i:=1 to n do 

begin

write('a[',i,'] = '); readln(a[i]);

end;

writeln('Cac so le: ')

s:=0;

for i:=1 to n do

if a[i] mod 2 <> 0 then 

begin

s:=s+a[i];

write(a[i],' ');

end;

writeln('- Tong so le: ',s);

for i:=1 to trunc(sqrt(s)) do if s mod i = 0 then d:=d+1;

if d > 1 then writeln('Tong do khong la so nguyen to') else writeln('Tong do la so nguyen to');

readln

end.

uses crt;

var v,t,d: real;

k: string;

begin

writeln('Nhap khoi (A, B hoac C): '); read(k);

writeln('Nhap diem Toan: '); read(t);

writeln('Nhap diem Van: '); read(v);

if k = 'A' then d:=t*2+v else

    if k = 'C' then d:=t+v*2 else d:=t+v+(t+v)/2;

writeln('Diem cua ban la ',d:5:2);

readln

end.

Cô ơi tại sao em không vào được phần bài giảng ạ?TÀi khoản của em là tài khoản VIP mà