Program z1;
var a,b,c,d,e:integer;
begin
Writeln('Введите числа: ');
Write('Первое число (a): '); read(a);
Write('Второе число(b): '); read(b);
if (a mod 2=0) then c:=a;
if (b mod 2=0) then d:=b;
if (a mod 2=0) or (b mod 2=0) then Writeln('Среди введённых чисел присутствует чётное число')
else Writeln('Среди введённых чисел нет чётных чисел');
if (c=a) then Writeln('Чётное число: ',c);
if (d=b) then Writeln('Чётное число: ',d);
end.
По вашему рисунку посчитать клеточки сложно, мне показалось, что там всё по 5 клеток. Если это не так, поменять несложно.
использовать Чертежник
алг Зигзаг
нач
сместиться на вектор (0,5)
опустить перо
нц 5 раз
сместиться на вектор (5,5)
сместиться на вектор (5,-5)
кц
кон
В двоичном алфавите используется только 0 и 1, следовательно мошность алфавита - 2.
Ответ:
На алгоритмическом языке:
нц ПОКА < условие >
< тело цикла >
кц
В Паскаль:
while < условие > do
<оператор или блок begin .. end>
end;
For i:1 to 10 do
if a[i]<4islo then
a[i]:=4islo