Найти все трехзначные числа, квадраты которых оканчивается тремя одинаковыми числами отличными от нуля. на паскале
числа должны выводиться сразу в квадрате, а не (100,200,300,400)
borisovaekaterina15
3
29.10.2019 18:30
6
Другие вопросы по теме Информатика
cat12213113
15.08.2019 12:50
siniTamy
10.09.2019 00:50
svilli711
22.05.2020 09:18
Анастасия3342
13.05.2020 16:18
ildargali1975
13.05.2020 16:18
Lissabone
13.05.2020 16:19
Gonsh1240
12.08.2019 07:50
Популярные вопросы
- При взаимодействии кальцинированной соды массой 10,8 г с избытком соляной кислоты...
3 - Напишите уравнения реакций, с которых можно осуществить следующие превращения:...
1 - Напишите уравнения реакций, с которых можно осуществить следующие превращения:...
3 - Вычислите количество вещества гидроксида натрия NаОН, который содержится в 300...
3 - Напишите уравнения реакций, с которых можно осуществить следующие превращения:...
2 - Напишите уравнения реакций, с которых можно осуществить следующие превращения:...
2 - Напишите уравнения реакций, с которых можно осуществить следующие превращения:...
3 - Напишите уравнения реакций, с которых можно осуществить следующие превращения:...
2 - Напишите уравнения реакций, с которых можно осуществить следующие превращения:...
2 - Напишите уравнения реакций, с которых можно осуществить следующие превращения:...
3
Программа:
var i,a,a1,a2,a3: integer;
begin
for i:=101 to 999 do
begin
a:=i*i;
a1:=a mod 1000 div 100;
a2:=a mod 100 div 10;
a3:=a mod 10;
if (a1=a2)and(a2=a3)and(a1<>0) then writeln(i,' ',a);
end;
end.
Результат:
462 213444
538 289444
962 925444