Найти все двузначные числа, квадрат суммы цифр которых делится на
Gklunnyy123
1
31.03.2019 20:20
0
Другие вопросы по теме Информатика
sarvaryusuf99
02.10.2019 16:30
ghf8
02.10.2019 16:30
Hrachuk
02.10.2019 16:30
иосиф19
02.10.2019 16:30
furi2
20.05.2020 09:22
syaninp087af
20.05.2020 09:23
курррва228
21.09.2019 05:21
Zopa43
21.09.2019 05:21
vika23562
21.09.2019 05:21
Популярные вопросы
- Put the words in brackets in the correct tense form A lot of tourists...
1 - Кілограм груш дорожчий за кілограм яблук на 2,8 грн. За 9 кг груш...
3 - ОЧЕНЬ , МОЛЮ О До мережі з напругою U = 220 В паралельно включені...
3 - Сторона правильного шестикутника дорівнює 8см знайти радіус вписаного...
1 - Какое число при делении на 12 даёт частное 8 и остаток 5...
2 - Знайти реченя у якому прислівник вжитий недоречно. А)Прощально...
2 - РЕШИТЬ ЭТИ ЗАДАЧИ С РЕШЕНИЕМСколько атомов содержится в 2,48 моль...
2 - 11 поділити на 7 і відповідь має бути дробомбудь ласка...
2 - 27+117*2:(516 -490 помагите столбиком ...
3 - Английский. Желательно по . И желательно весь листок...
3
program z;
var i,a,a1,s:integer;
begin
writeln('Двухзначные числа, квадрат суммы цифр которых делится 13');
for i:=10 to 99 do
begin
a:=i;
s:=0;
while a<>0 do
begin
a1:=a mod 10;
s:=s+a1;
a1:=a div 10;
a:=a1;
end;
if sqr(s) mod 13=0
then
writeln(i);
end;
end.