Var A:integer; Begin Write('Введите целое число: ');ReadLn(A); Write('Это число '); if A > 0 then Write('положительное ') else Write('отрицательное '); if A mod 2 = 0 then Write('чётное') else Write('нечётное') End.
Второй вариант:
Var A:integer; Begin Write('Введите целое число: ');ReadLn(A); if (A mod 2 = 0)and(A > 0) then Write('Данное число является целым положительным') else Write('Это число не является целым положительным') End.
// PascalABC.NET 3.3, сборка 1540 от 16.09.2017 // Внимание! Если программа не работает, обновите версию!
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.
Результат 205(42025) 376(141376) 421(177241) 625(390625) 963(927369)
Носи́тель информа́ции (информацио́нный носи́тель) — любойматериальный объект или среда[неизвестный термин] , содержащий (несущий) информацию (И длительное время сохранять в своей структуре занесённую в/на него информацию — камень,дерево, бумага, металл, пластмассы, кремний (и другие виды полупроводников), лента с намагниченнымслоем (в бобинах и кассетах), пластик со специальными свойствами (для оптической записи И — CD, DVDи т. д.), ЭМИ (электромагнитное излучение) и т. д. и т. п.Носителем информации может быть любой объект, с которого возможно (но не обязательно) чтениеимеющейся (записанной) информации.Зачастую сам носитель информации помещается в защитную оболочку, повышающую его сохранность и,соответственно, надёжность сохранения И (к примеру: бумажные листы — в обложку, микросхему памяти —в пластик (смарт-карта), магнитную ленту — в корпус и т. д.).Носители информации в быту, науке (библиотеки), технике (скажем, для нужд связи), общественной жизни(СМИ) применяются для: (распространения)создания произведений компьютерного искусства
Var A:integer;
Begin
Write('Введите целое число: ');ReadLn(A);
Write('Это число ');
if A > 0 then Write('положительное ')
else Write('отрицательное ');
if A mod 2 = 0 then Write('чётное')
else Write('нечётное')
End.
Второй вариант:
Var
A:integer;
Begin
Write('Введите целое число: ');ReadLn(A);
if (A mod 2 = 0)and(A > 0) then Write('Данное число является целым положительным')
else Write('Это число не является целым положительным')
End.