Var - блок переменных с их описанием i,k - переменные (тип integer 'числовой') a - массив от 1 до 10 (тип integer)
begin - начало программы
randomize - включение генератора рандомных чисел
for i:=1 to 10 do
a[i]:=random(11)-5 - работа с массивом
for i:=1 to 10 do
write('',a[i]);writeln; - распечатка массива
Ответ:
Собственную (внутреннюю) память человека, можно назвать
оперативной, потому что содержащаяся в ней информация воспроизводится достаточно быстро.
( то есть шестое из тобою перечисленного )
3) Из пункта А в З :
АГЗ,АГВЖЗ,АВЖЗ
Ответ:3
Сорян, 4 задание не видно((Можешь в лс кинуть,я решу)
1 рисунок -- по правому краю;
2 рисунок -- по левому краю;
3 рисунок -- по центру;
4 рисунок -- по ширине.
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
function IsAutomorph(s:string):boolean;
// Возвращает true, если строка s изображает
// автоморфное число, иначе возвращает false
begin
var b:BigInteger;
if BigInteger.TryParse(s,b) then
Result:=sqr(b).ToString.Right(s.Length)=s
else Result:=false
end;
begin
var s:=ReadlnString('Введите натуральное число:');
if IsAutomorph(s) then Println('Автоморфное')
else Println('Не автоморфное')
end.
<u><em>Тестовые решения:</em></u>
Введите натуральное число: 12890625
Автоморфное
Введите натуральное число: 3245
Не автоморфное