// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
Println('Введите последовательность целых чисел через пробел.');
var n := ReadSeqIntegerWhile('Последним введите число нoль. ->', t -> t <> 0).
Pairwise.Where(t -> t[0] * t[1] < 0).Count;
Println($'Последовательность меняет знак {n} раз(а).')
end.
Program z1;
var x:integer;
begin
for x:=100 to 999 do
if (x mod 11=0)and(x mod 3=0) then
write (x,' ');
end.
Текст программы на языке Pascal:
program p1;
var a: array [1..40] of integer;
var i,c:integer;
begin
c:=0;
for i:=1 to 40 do
begin
a[i]:=random(20);
write (a[i],' ');
if (a[i] mod 3) = 0
then c:=c+a[i];
end;
writeln;
writeln (c);
<span>end.</span>
Ну, во-первый Системы Счисления, а,потом, смотри, если есть 9, то это как минимум 10 СС, 16 сс не может, т.к 2+9 было бы В
Программа считает кол-во цифр больше 4-х и кол-во цифр меньше шести в твоем числе.
Первая цифра - это кол-во числе больше 4-х.
Вторая цифра - соответсвенно.
В итоге ответ получается: 10556