Phần mềm học tập - Hỏi đáp

uses crt;

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

n,i,s:integer;

begin

clrscr;

write('nhap n:');readln(n);

for i:=1 to n do

begin

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

end;

s:=0;

for i:=1 to n do

if a[i]>0 then s:=s+a[i];

write('tong cac so duong la:',s);

readln;

end.

uses crt;

var a:array[1..100]of real;

n,i:integer;

begin

clrscr;

write('Nhap so hoc sinh:'); readln(n);

for i:=1 to n do

begin

write('Nhap diem mon Tin cua hoc sinh thu ',i,'='); readln(a[i]);

end;

for i:=1 to n do

writeln('Diem cua ban thu ',i,'=',a[i]:4:2);

readln;

end.

uses crt;

var b:array[1..100]of integer;

n,i,t,t1,max,min,t2:integer;

begin

clrscr;

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

for i:=1 to n do

begin

write('B[',i,']='); readln(b[i]);

end;

t:=0;

for i:=1 to n do

if b[i] mod 2=0 then t:=t+b[i];

writeln('Tong cac so chan trong day la: ',t);

t1:=0;

for i:=1 to n do

if b[i]<0 then t1:=t1+b[i];

writeln('Tong cac so am trong day la: ',t1);

max:=b[1];

min:=b[1];

for i:=1 to n do

begin

if max<b[i] then max:=b[i];

if min>b[i] then min:=b[i];

end;

writeln('Phan tu lon nhat la: ',max);

writeln('Phan tu nho nhat la: ',min);

t2:=0;

for i:=1 to n do

if b[i] mod 3=0 then t2:=t2+b[i];

writeln('Tong cac phan tu chia het cho 3 la: ',t2);

readln;

end.

Program HOC24;

var i,n: integer;

begin

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

for i:=1 to n do

if n mod i=0 then write(i,' ');

readln

end.

uses crt;
var i,n,s:longint;
a:array[1..1000000] of 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]>0 then s:=s+a[i];
write('Tong cac phan tu lon hon 0 la: ',s);
readln
end.

Var z:array[1..1000] of longint;

n, i,A:longint;

Begin

Readln(n);

For i:=1 to n do begin writeln('s',i,'=');

Readln(z[i]);

End;

For i:=1 to n do begin if z[i] mod 2 = 0 then begin A:= z[i];

End;

Writeln('Cac so chan la ',A);

End;

End.

Bạn kiểm tra lại nhé.

Var z:array[1..1000] of longint;

n, i, T:longint;

Begin

Readln(n);

For i:=1 to n do begin writeln('T',i,'=');

Readln(z[i]);

T:= T + z[i];

End;

Writeln('Tong la ',T);

End.

Bạn thử kiểm tra lại nhé!

Essential Anatomy là phần mềm giải phẫu người nổi tiếng, được tải về rất nhiều trên các nền tảng di động. Nó là sản phẩm chủ lực của 3D4Medical – nhà sản xuất ứng dụng giải phẫu lớn nhất thế giới. Essential Anatomy mang đến công nghệ 3D đột phá và thiết kế sáng tạo, giúp cho các mô hình giải phẫu có độ chi tiết cao, dễ dàng hình dung và nắm bắt hơn

Essential Anatomy đại diện cho một cách tiếp cận độc đáo để học tập giải phẫu tổng quát. Đồ họa thực sự là một điểm mạnh giúp cho việc học trở nên dễ dàng nhờ tiếp thu thông tin một cách sáng tạo, mang đến trải nghiệm phong phú và hấp dẫn.

Bài 1:

uses crt;

var n:integer;

begin

clrscr;

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

if n>0 then writeln(n,' la so duong');

if n=0 then writeln(n,' la so khong');

if n<0 then writeln(n,' la so am');

readln;

end.

Bài 2:

uses crt;

var a,b:real;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

if a>b then writeln(a:4:2,' lon hon ',b:4:2)

else if a<b then writeln(b:4:2,' lon hon ',a:4:2)

else writeln(a:4:2,' bang ',b:4:2);

readln;

end.

Bài 3:

uses crt;

var a,b,c:real;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

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

begin

if (a+b>c) and (a+c>b) and (b+c>a) then writeln('Day la ba canh trong mot tam giac')

else writeln('Day khong la ba canh trong mot tam giac');

end

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.

Bài 4:

uses crt;

var a:integer;

begin

clrscr;

write('Nhap a='); readln(a);

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

else writeln(a,' la so le');

readln;

end.

Tên phần mềm là chi đó

Program HOC24;

var a,b: integer;

tong: longint;

function dn(x: longint): longint;

var t: longint;

begin

dn:=0; t:=0;

while x<>0 do

begin

t:=t*10+(x mod 10);

x:=x div 10;

end;

dn:=t;

end;

begin

write('a='); readln(a);

write('b='); readln(b);

tong:=dn(a)+dn(b);

write('Tong doi xung cua a va b la: ',dn(tong));

readln

end.

cho em câu tra lời tin hoc ạ...