Найти: а) все двузначные числа, сумма квадратов цифр которых делится на 13; б) все двузначные числа, - id1856691720201129 от борщ7 29.11.2020 14:40

Question

Информатика: Найти: а) все двузначные числа, сумма квадратов цифр которых делится на 13; б) все двузначные числа, обладающие следующим свойством: если к сумме цифр числа прибавить квадрат этой суммы, то получится снова искомое число. Язык- C#

борщ7 · Accepted Answer

Program task1;

const
n = 10;

var
a :array [1..n] of real;
i, j :integer;
min, k :real;

begin

for i:= 1 to n do
    readln(a[i]);

min:= a[1];
for i:= 1 to n do
    if a[i] < min then
    begin
      min:= a[i];
      j:= i;
    end;

k:= a[n];
a[n]:= a[j];
a[j]:= k;

end.

program task2;

const
n = 10;

var
a :array [1..n] of integer;
i, j, kol :integer;

begin

for i:= 1 to n do
    readln(a[i]);

kol:= 0;
for i:= 1 to n do
    if a[i] mod 3 = 0 then
      inc(kol);
for i:= 1 to n do
    if a[i] = kol then
    begin
      j:= i;
      break;
    end;
writeln(j);

end.

MOGZ ответил