Задать вопрос
26 февраля, 08:46

1. Дано натуральное число n. Переставить его цифры так, чтобы образовалось максимальное число, записанное теми же цифрами.

2. Найти все двузначные числа, сумма квадратов которых делится на 17.

Всё это нужно сделать в программе Паскаль, но КАК?!

+3
Ответы (1)
  1. 26 февраля, 10:48
    0
    1. uses crt;

    const m=8;

    var n, i, b, c, p, k:integer;

    a:array[1 ... m] of integer;

    begin

    readln (n) ;

    b:=n;

    k:=1;

    repeat

    c:=b mod 10;

    a[k]:=c;

    b:=b div 10;

    inc (k) ;

    until b=0;

    repeat

    p:=0;

    for i:=1 to k-1 do

    if a[i]
    begin

    p:=1;

    a[i]:=a[i]+a[i+1];

    a[i+1]:=a[i]-a[i+1];

    a[i]:=a[i]-a[i+1];

    end;

    until p=0;

    for i:=1 to k-1 do

    write (a[i]) ;

    end.

    2. uses crt;

    const n=99;

    var i, j:integer;

    begin

    for i:=10 to n do

    for j:=10 to n do

    if ((i*i+j*j) mod 17=0) then write (i,' ', j,' ') ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «1. Дано натуральное число n. Переставить его цифры так, чтобы образовалось максимальное число, записанное теми же цифрами. 2. Найти все ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы