uses crt;
Var a:array[1..100000] of longint;
i,n,d:longint;
Begin
clrscr;
write('Nhap n: '); readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = '); Readln(A[i]);
end;
for i:=1 to n do
if (a[i] mod 2=0) and (a[i] mod 3=0) then inc(d);
write('Co ',d,' so vua chia het cho 2 vua chia het cho 3');
readln
end.

program andanh;
uses crt;
var i,n,tong,a:integer;
begin
clrscr; tong:= 0;
repeat
write('Nhap so cac so: ');readln(n);
if n > 10 then
begin
write('Nhap so be hon 10. Hay nhap lai');
delay(2000);
clrscr;
end;
until n <= 10;
for i:= 1 to n do
begin
write('Nhap so thu ',i,': ');
readln(a);
tong:= tong + a;
end;
write('Trung binh cong cua cac so tren la: ',tong/n:2:2);
readln
end.

Vì một số loại virus, mã độc sẽ mã hóa, xóa các tập tin quan trọng như giấy tờ, file học tập ( thường nhắm đến các file document), và bạn cũng không thể mở được các file ấy.

=> cần backup lại dữ liệu trong PC

Program tinh_tong;
Var i,n,s:integer;
Begin
S:=0;
Write('nhap n =');readln(n);
For i:= 1 to n do s:= s+i;
Write('tong',n,'so tu nhien dau tien = ',s);
Readln
End.

minh khong biet co dung khong nhung co gang lam bai that tot nhe chuc ban may man

program tamgiac;

uses crt;

var a,b,c: integer;

BEGIN

clrscr;

reapeat begin write ('nhap a = '); readln (a); end;

until a>0;

reapeat begin write ('nhap b = '); readln (b); end;

until b>0;

reapeat begin write ('nhap c = '); readln (c); end;

until c>0;

if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b)

then write ('3 canh ay la 3 canh cua tam giac vuong')

else ('3 canh ay khong la 3 canh cua tam giac vuong');

READLN

END.

chưa kiểm tra bất đẳng thức đã kiểm tra tam giác vuông là sai nha bạn

Câu 1:

Hiện nay có rất nhiều chương trình bảng tính khác nhau như: Lotus, Quattro, Excel,...Nhưng chúng đều có chung một số tính năng chung như sau:

- Màn hình làm việc đều có dạng bảng (bao gồm cột, hàng và ô);

- Có khả năng lưu trữ và xử lí nhiều loại dữ liệu như ờ dạng số, văn bàn, ngày tháng, tiền tệ,...

- Khả năng tính toán và sử dụng hàm có sẵn;

- Sắp xếp và lọc dữ liệu;

- Tạo biểu đồ dựa vào dữ liệu có sẵn trong bảng.

Câu 2:

Tên hàm: SUM

Cú pháp: =SUM(a,b,c,..) trong đó, a,b,c là các biến ( các biến có thể là dữ liệu số, địa chỉ ô tính, khối)

Công dụng: Tính tổng

Tên hàm: AVERAGE: tính TBC

Cú pháp: =AVERAGE(a,b,c,..) trong đó a,b,c là các biến

Tên hàm:MAX: tính giá trị lớn nhất

Cú pháp: =MAX(a,b,c,...) trong đó a,b,c là các biến

Tên hàm: MIN: tính giá trị nhỏ nhất

Cú pháp:=MIN(a,b,c,..) a,b,c là các biến

Học tốt

program Solonnhat;

uses CRT;

var a,b,c:real;

begin

clrscr;

readln(a);

readln(b);

readln(c);

if (a>b) and (a>c) then

begin

writeln('So lon nhat la ',a:2:2);

readln;

end

else

if (b>a) and (b>c) then

begin

writeln('So lon nhat la ',b:2:2);

readln;

end

else

if (c>a) and (c>b) then

begin

writeln('So lon nhat la ',c:2:2);

readln;

end

end

end.