Из двух простых высказываний A = «Коля читает газету»; G = «Коля пьёт чай» составили сложное высказывание «Коля читает газету или не пьёт чай». Какой из предложенных вариантов соответствует сложному высказыванию? ответ: тогда A, когда зачем-то GA или не Gне Gили A, но не G ответить!
В этой задаче нам нужно подсчитывать количество чисел и искать максимум среди подсчитанных количеств. Алгоритм будет такой: если очередное число равно `2`, то увеличиваем счётчик количества, если же нет, то это означает, что подпоследовательность закончилась, и надо проверять, не превзошли ли мы максимум, а потом текущий счётчик сбрасывать в `0`. И ещё нужно сделать такую проверку после цикла, поскольку последовательность может закончиться на `2`.
var a,k,max:integer;
begin
max:=0;
k:=0;
read(a);
while a <> 0 do begin
if a = 2
then k := k + 1
else begin
if k > max then max := k;
k := 0
end;
read(a);
end;
if k > max then max := k;
writeln(max)
end.
7-3-3
var
a, b: integer;
begin
Writeln('Введите 2 числа:');
Read(a, b);
Writeln('Сумма чисел: ', a + b);
Writeln('Разность чисел: ', a - b);
Writeln('Целочисленное деление: ', a div b);
Writeln('Остаток от деления: ', a mod b);
end.
7-3-5
var
n: integer;
begin
Writeln('Введите N: ');
Read(n);
if n mod 2 = 0 then
Writeln('Следующее четное: ', n+2)
else Writeln('Следующее четное: ', n + 1);
end.
КуМир
алг нач цел а, б, с,д ввод а, б с:= div(а,б) д:= mod(а,б) вывод а + б, нс, а-б, нс, с, нс,д коналг
нач
цел a,c
ввод a
c:=mod(a,2)
если c=0
то
вывод a+2
иначе
вывод a+1
все
кон