предлагаю решение на Паскале
var n: integer;
begin
read (n);
if (n mod 5)=0 then n:=n*4
else
n:=n-25;
writeln ('n=',n);
end.
110 (в двоичной) = 2^2 + 2^1 = 6 (в десятичной), соответственно,
100 * 6 = 600 (в десятичной).
Если условие записано верно, то таблица истинности имеет такой вид (но само выражение не тождественно истинное!):
Если я правильно поняла задание, то вот
использовать Робот
алг
нач
вправо
нц 6 раз
закрасить
вниз
кц
вправо
нц 6 раз
закрасить
вверх
кц
вправо
вниз
вниз
нц 6 раз
закрасить
вниз
кц
вправо
нц 6 раз
закрасить
вверх
кц
нц 6 раз
вниз
кц
вправо
<span>
кон</span>
Type
massive= array [1..10] of real;
var a,b: massive;
i,j:integer;
begin
randomize;
j:=1;
for i:=low(a) to high(a) do
a[i]:=random(20)-10;
for i:=low(a)+1 to high(a)-1 do
if (a[i-1] = a[i]) and (a[i]= a[i+1]) then write(a[i]) else do
begin
b[j]:=a[i];
j:=j+1;
end;
writeln;
for i:=low(b) to j do
write(b[i]);
end.
