Var numb,sot,des,ed:integer;
begin
readln(numb);
sot:=numb div 100;
des:= numb mod 100;
des:= des div 10;
ed:= numb mod 10;
writeln(sot,' ',des,' ',ed);
end.
<em>// PascalABC.NET 3.3, сборка 1540 от 16.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n,p:integer;
var s:string;
for var a:=1 to 9 do
for var b:=0 to 9 do
for var c:=0 to 9 do begin
n:=100*a+10*b+c;
s:=(n*n).ToString.Right(3);
p:=Pos(a.ToString,s);
if p>0 then begin
Delete(s,p,1);
p:=Pos(b.ToString,s);
if p>0 then begin
Delete(s,p,1);
if s=c.ToString then Write(n,'(',n*n,')',' ')
end
end
end
end.
<u>Результат</u>
205(42025) 376(141376) 421(177241) 625(390625) 963(927369)
Тут не совсем понятно в чем конкретно это все делать, но я так понимаю, что в пеинте. Если так, то:
1) Выбрать нужный цвет в палитре и нажать на него правой кнопкой мыши
2) Выбрать нужный цвет в палитре и нажать на него левой кнопкой мыши
3) Выбрать в панели "Прямоугольник" и нарисовать фигуру
4) Выбрать в панели "Прямоугольник" и, зажав клавишу "Shift" нарисовать фигуру
5) Выбрать в панели "Овал" и нарисовать фигуру
6) Выбрать в панели "Овал" и, зажав клавишу "Shift" нарисовать фигуру
Если не трудно, пометь ответ как лучший. Удачи
Int num;
for(int i = 0; i < k; i++) if(arr[i] == int(arr[i]) num++;
num - количество целых чисел
k - количество интераций
Так как A больше B, то подставляем в первую, после then ) c:=8+2
C:=10 , если бы условие не выполнялось, подставляли бы в то, что после else(иначе)