Что надо сделать, чтобы скрыть смысл сообщения? декодировать зашифровать закодировать дешифровать

– Разбейте данные ребусы на группы.

– Запишите верные равенства.

О т в е т ы:

– В каждом ребусе пункта 1 замените еще одну цифру звездочкой. Решите новые ребусы.

– Как вы думаете, новые ребусы тоже имеют единственное решение?

– Постарайтесь найти все возможные решения для каждого равенства.

П р и м е ч а н и е. При замене звездочкой еще одной цифры чаще всего появляется несколько решений независимо от того, какая цифра заменена. Так, в первом равенстве при замене звездочкой сотен первого слагаемого получаем: , что приводит к четырем вариантам решения: 448 + 161 = 148 + 461 = 248 + 361 = 348 + 261 = = 609. Замена каждой цифры дает свою серию решений.

3. Р а б о т а в печатной тетради № 2, задание № 41.

Р е ш е н и е. Больше банок меда у Винни-Пуха, на 16 · 2 – 28 = 4 (банки).

Объяснение:

1.
var a:integer;
begin
write('Введите число: ');
readln(a);
if a>0 then a:=a-10 else a:=a+10;
writeln('a = ',a);
end.

Пример:
Введите число: 5
a = -5

2.
var a,b,p:integer;
begin
writeln('Введите два числа: ');
readln(a,b);
if a*b<0 then p:=-2*a*b else p:=3*a*b;
writeln('p = ',p);
end.

Пример:
Введите два числа: 
-3 -8
p = 72

3.
var a,b,r:integer;
begin
writeln('Введите два числа: ');
readln(a,b);
if a>b then r:=a-b else r:=b-a;
writeln('r = ',r);
end.

Пример:
Введите два числа: 
25 48
r = 23

4.
var r:integer;
begin
writeln('Введите рост: ');
readln(r);
if r>180 
 then writeln('высокий')
 else if r=180 then writeln('нормальный') else writeln('низкий');
end.

Пример:
Введите рост: 
160
низкий