Дмитрий Самодумов
Анечка
В следующий раз язык указывай!
for (int i = 10; i < 100; i++)
{
int first = (i % 10) * (i % 10);
int second = ((int)(i / 10)) * ((int)(i / 10));
if ((first + second) % 13 == 0) Console.WriteLine(i.ToString());
}
паскаль
program cool;
var i:Integer;
first, second: Integer;
begin
for i:=10 to 99 do
begin
first:=(i mod 10)*(i mod 10);
second:=Trunc(i/10)*Trunc(i/10);
if (first + second) mod 13 = 0 then writeln(i);
end;
end.
НК
Нина Котахова
легко
13
26
39
52
65
78
91
Похожие вопросы