Nội dung bài viết

    Xem thêm

    Viết chương trình pascal tìm cặp số bạn bè (hoặc cũng có thể gọi là thân thiết)

    Vietjack.me giới thiệu bộ câu hỏi ôn tập Tin học có đáp án được biên soạn bám sát chương trình học giúp bạn ôn luyện và bổ sung kiến thức môn Tin học tốt hơn. Mời các bạn đón xem:

    1 834 03/08/2023
    Trang trước
    Chia sẻ
    Trang sau  

    Viết chương trình pascal tìm cặp số bạn bè (hoặc cũng có thể gọi là thân thiết)

    Đề bài: Viết chương trình pascal tìm cặp số bạn bè (hoặc cũng có thể gọi là thân thiết) <Hai số được nhập vào từ bàn phím>

    Lời giải:

    uses crt;

    var a, b, s1, s2, i : integer;

    begin

    clrscr;

    s1 := 0; s2 := 0;

    write('nhap hai so : '); readln(a, b);

    for i := 1 to a - 1 do 

    if a mod i = 0 then s1 := s1 + i;

    for i := 1 to b - 1 do 

    if b mod i = 0 then s2 := s2 + i;

    if (s2 = a) and (s1 = b) then

    writeln(a,' va ', b ,' la hai so than thiet')

    else writeln(a,' va ', b ,' khong la hai so than thiet');

    readln

    end.

    Xem thêm các câu hỏi Tin học có đáp án khác:

    So sánh sự giống và khác nhau giữa rom va ram

    Firmware đề cập đến điều gì?

    Tiền đề quyết định cho sự phát triển nền kinh tế tri thức là?

    Kết quả in ra màn hình của câu lệnh Writeln(‘5+20 = ‘, 20+5); là

    Khi tạo ra 1 biểu mẫu để nhập dữ liệu thì ta bắt buộc phải

    Hãy chọn biểu diễn tên đúng trong những biểu diễn sau

    Biểu diễn nào dưới đây không phải là biểu diễn hằng trong Pascal:

    Trong thiết bị sau, thiết bị nào có tốc độ truy xuất chậm nhất

    Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng n

    Viết chương trình in ra số lớn nhất trong bốn số nhập từ bàn phím

    Viết chương trình xét một tam giác có là tam giác vuông hay không

    Viết chương trình Python cho phép nhập vào 3 số nguyên a,b, c

    Viết chương trình in ra thông báo một số nguyên nhập vào từ bàn phím

    Cho đoạn chương trình sau: x:=8,y:=10; If x>y then

    Để chạy chương trình ta dùng tổ hợp phím:

    Cho đoạn chương trình sau

    Viết chương trình dịch các ngày trong tuần ra tiếng anh

    Bài viết cùng lớp mới nhất

    Xem thêm
    1 834 03/08/2023
    Trang trước
    Chia sẻ
    Trang sau  

    Xem thêm các chương trình khác: