var a:array[1..12] of integer; i,n,r:integer; begin n:=12; a[1]:=5; a[7]:=9; a[2]:=-3; a[8]:=6; a[3]:=4; a[9]:=-3; a[4]:=-8; a[10]:=4; a[5]:=-9; a[11]:=8; a[6]:=1; a[12]:=2; for i:=1 to n do begin writeln('Massiv a[',i,'] ', a[i]); end; end.
2)
var a:array [1..10] of integer; i, n,k:integer; begin k:=0; for i:=1 to 10 do begin write('a[',i,']:='); readln(a[i]); if not odd(a[i]) then k:=k+1; end; writeln('Kolichestvo ne4etnix elementov - ', k); end.
USES CRT,Graph;VAR Device,Mode:Integer; i,x,y,s:Integer;BEGINCLRSCR; Device:=0; InitGraph(Device,Mode,''); s:=100; x:=320; y:=240; for i:=1 to 9 do begin SetLineStyle(0,0,ThickWidth); Circle(x,y,s); Delay(200); SetColor(Black); Circle(x,y,s); s:=s-10; SetColor(White); end; for i:=1 to 9 do begin SetLineStyle(0,0,ThickWidth); Circle(x,y,s); Delay(200); SetColor(Black); Circle(x,y,s); s:=s+10; SetColor(White); end; Circle(x,y,s);Readln;END.
// PascalABC.NET 3.1, сборка 1214 от 09.04.2016 function AutoMorph(n:integer):boolean; begin var s1:=n.ToString; Result:=(s1=(n*n).ToString.Right(s1.Length)) end;
begin var a,b:integer; Write('Введите а и b: '); Read(a,b); for var i:=a to b do if AutoMorph(i) then Print(i) end.
Тестовое решение: Введите а и b: 1 10000 1 5 6 25 76 376 625 9376
Попробовал переписать функцию в более примитивный вид. По-моему, она не стала проще, только удлинилась...
function AutoMorph(n:integer):boolean; begin var s1:=IntToStr(n); // n переводим в строковое представление var s2:=IntToStr(n*n); // n*n переводим в строковое представление var l1:=Length(s1); // длина строки s1 s2:=RightStr(s2,l1); // правые l1 символов из s2 Result:=(s1=s2) end;
1)
var a:array[1..12] of integer;
i,n,r:integer;
begin
n:=12;
a[1]:=5; a[7]:=9;
a[2]:=-3; a[8]:=6;
a[3]:=4; a[9]:=-3;
a[4]:=-8; a[10]:=4;
a[5]:=-9; a[11]:=8;
a[6]:=1; a[12]:=2;
for i:=1 to n do begin
writeln('Massiv a[',i,'] ', a[i]);
end;
end.
2)
var a:array [1..10] of integer;
i, n,k:integer;
begin
k:=0;
for i:=1 to 10 do
begin
write('a[',i,']:=');
readln(a[i]);
if not odd(a[i]) then
k:=k+1;
end;
writeln('Kolichestvo ne4etnix elementov - ', k);
end.