Var
i,n:integer;
begin
read(n);
for i := 1 to n do
if (i mod 2) * (i mod 3) * (i mod 5) = 0 then
write(i,' ')
<span>end.</span>
4. Буфер обміну, зокрема, дуже корисна функція, адже набирати те саме речення по 3-4 рази втомлює та дратує водночас. З ним легко ввести одні й ті ж самі слова, наприклад, в таблиці, замість того, щоб набирати його вручну. Він корисний, коли потрібно розіслати оголошення в соц. мережі кільком друзям, аніж нервуватись над написанням кожного оголошення.
Вибачайте, але 5 я не зможу зробити, але хоча би з цим допомогла.
<em>// PascalABC.NET 3.2, сборка 1370 от 24.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-100,100); a.Println;
var n:=a.Where(x->x.IsEven).Count;
Writeln('Четных- ',n,', нечетных- ',10-n)
end.
<u>Пример</u>
44 79 -39 29 -81 -50 33 -96 52 -47
Четных- 4, нечетных- 6