<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:='Победа';
for var i:=1 to s.Length do Writeln(s[i:])
end.
<u>Результат</u>
Победа
обеда
беда
еда
да
а
// составьте программу нахождения в массиве а( 10) индексов элементов значения которых не кратны 4
var i,x: word;
a : array [1..10] of integer;
Begin
writeln ('Введите 10 целых чисел');
for i:=1 to 10 do
Begin
write (i,' число ');
readln (a[i]);
end;
writeln;
for i:=1 to 10 do
Begin
x:=a[i] mod 4;
if x<>0 then writeln (i,' элемент таблицы не кратен 4');
end;
<span>End.</span>
<span>Ньютон,
Шиккард(первый калькулятор на десятичной системе счисления-16 век),
Лейбинц(двоичная система счисления-17 век),
Бэббидж(разработал проект универсальной вычислительной машины-19 век),
Ада Лавлейс(первый программист-19 век</span><span>),
Алан Тьюринг( теория ИИ-20 век</span><span>),
Курт Гедель(разработал основы теоретической информатики-20 век),
Цузе(создатель первого языка программирования высокого уровня-20 век)
Винер(основоположник кибренетики-20 век),
Джобс(пионер эры IT-технологий-21 век),
Никлаус Вирт(главный разработчик языка Паскаль-наши дни),
Гейтс(пионер эры IT-технологий-наши дни).</span>
// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!
function Dec2Bin(x:string):string;
begin
var s:=x.MatchValue('\d+');
if s.Length=0 then begin
Writeln('Не найдено НИ ОДНОЙ цифры!');
Result:=''
end
else begin
var t:=s.ToInteger;
var r:string:='';
while t>=2 do (r,t):=(t mod 2+r,t shr 1);
Result:=t+r
end
end;
begin
Writeln(Dec2Bin(ReadlnString('n=')))
end.