Viết chương trình tìm các cặp số nguyên a,b trong đoạn từ 1 đến 200 thỏa mãn biểu thức sau: 1/3=(1/a)+(1/b). Pascal nha. Mk cảm ơn
2 câu trả lời
program timso;
uses crt;
var a,b,so:integer;
begin
clrscr; so:=0;
for a:=1 to 200 do
for b:=1 to 200 do if 1/3=(1/a)+(1/b) then
begin
writeln(a,' ',b);
end;
readln;
end.
var a,b:byte;
begin
writeln('Cac cap so thoa man la: ');
for a:=1 to 200 do
for b:=1 to 200 do
if (1/a+1/b=1/3) then writeln(a,' ',b);
readln
end.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
