viết trương trình kiểm tra xem k có phải là số tương lai không(dùng mảng)
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
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.
Thuật toán:
-Bước 1: Nhập n
-Bước 2: Nếu \(\sqrt{n}=trunc\left(\sqrt{n}\right)\) thì n là số chính phương
không thì n không phải là số chính phương
-Bước 3: Kết thúc.
Viết chương trình
uses crt;
var n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n<0 then writeln(n,' khong la so chinh phuong')
else begin
if sqrt(n)=trunc(sqrt(n)) then writeln(n,' la so chinh phuong')
else writeln(n,' khong la so chinh phuong');
end;
readln;
end.
Thay x = 1, y = 8 vào từng phương trình của hệ:
5.1 + 2.8 = 5 + 16 = 21 ≠ 9
Vậy (1; 8) không là nghiệm của hệ phương trình 5 x + 2 y = 9 x - 14 y = 5
Thay x = 3, y = -11 vào từng phương trình của hệ:
0,2.3 + 1,7.(-11) = 0,6 – 18,7 = -18,1
3,2.3 – 1.(-11) = 9,6 + 11 = 20,6
Vậy (3; -11) là nghiệm của hệ phương trình 0 , 2 x + 1 , 7 y = - 18 , 1 3 , 2 x - y = 20 , 6
Thay x = -4, y = 5 vào từng phương trình của hệ:
7.(-4) – 5.5 = -28 – 25 = -53
-2.(-4) + 9.5 = 8 + 45 = 53
Vậy (-4; 5) là nghiệm của hệ phương trình 7 x - 5 y = - 53 - 2 x + 9 y = 53
* Thay x = 1,5, y = 2 vào từng phương trình của hệ:
10.1,5 – 3.2 = 15 – 6 = 9
-5.1,5 + 1,5.2 = -7,5 + 3 = -4,5
Vậy (1,5; 2) là nghiệm của hệ phương trình 10 x - 3 y = 9 - 5 x + 1 , 5 y = - 4 , 5
* Thay x = 3, y = 7 vào từng phương trình của hệ:
10.3 – 3.7 = 30 – 21 = 9
-5.3 + 1,5.7 = -15 + 10,5 = -4,5
Vậy (3; 7) là nghiệm của hệ phương trình 10 x - 3 y = 9 - 5 x + 1 , 5 y = - 4 , 5
bạn phải cho định nghĩa số tương lai là gì đã chứ