HOC24
Lớp học
Môn học
Chủ đề / Chương
Bài học
BÀI 8: Tìm tất cả các chữ số có ba chữ số abc sao cho tổng các lập phương của các chữ số thì bằng chính số đó ( abc = a3 + b3 + c3).
8.program bai_8;
uses crt;
var
A:=array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('nhap n=');readln(n);
for i:= 1 to n do
write('A[',i,']=');readln(A[i]);
end;
for i:= 1 to n do write(A[i],' ');
max:=a[1];
if a[i] mod> max then:=a[i];
write('gia tri lon nhat trong mang la:',max);
readln;
end.
4. program bai_4;
ues crt;
s,n,i:integer;
write('nhap n:');readln(n);
s:=0;
for i:=1 to n do
if i (mod 2=0) then s:=s+1;
write('tong la:',s:7);
5.program bai_5;
i,s,n:integer;
write('nhap n :');readln(n);
for i:=1 to n do s:=s+1;
writer('tong la:',s);