Program p_2;
var
n, count: byte;
begin
readln(n);
count := 0;
count := count + n mod 2;
n := n div 2;
count := count + n mod 2;
n := n div 2;
count := count + n mod 2;
n := n div 2;
count := count + n;
writeln(count)
end.
<span><em>// PascalABC.NET 3.3, сборка 1576 от 16.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
</span><span>begin
var s:=ReadlnString('Введите имя и фамилию:');
var g:=ReadlnString('Введите год рождения:');
var n:=ReadInteger('Сколько раз повторить вывод?');
loop n do Writeln(s,NewLine,g)
end.
<u>Пример</u>
Введите имя и фамилию: Иванов Сергей
Введите год рождения: 24.06.2001
Сколько раз повторить вывод? 3
Иванов Сергей
24.06.2001
Иванов Сергей
24.06.2001
Иванов Сергей
24.06.2001</span>
Системные: Paint, Калькулятор, Сама ОС (Виндовс), Блокнот, MoovieMaker , WindowsMedia
Прикладные: Браузер (третий сверху), Анти-вирус (первый сверху)
Пиксель
(P.S)
Пишу сюда ещё т.к не менее 20 слов