Ответ:
program Friendly;
uses
SysUtils; // для IntToStr
var
a, b, i, pa, pb: LongInt;
sa, sb: string;
f: Boolean;
begin
Write ('A, B = ');
ReadLn (a, b);
sa := IntToStr (a);
sb := IntToStr (b);
f := True;
for i := 0 to 9 do begin
pa := Pos (IntToStr (i), sa);
pb := Pos (IntToStr (i), sb);
if ((pa <> 0) and (pb = 0)) or ((pa = 0) and (pb <> 0)) then begin
f := False;
Break;
end;
end;
if f then
WriteLn ('YES')
else
WriteLn ('NO');
ReadLn;
end.
1 - Надпись
2 - Эллипс
6 - Распылитель
10 - Масштаб
Var
a, b:real;
begin
readln(a, b);
writeln(a * b * 0.5);
end.
К 1 прибавим 2, прибавим 2, и ещё раз прибавим 2. Всё вместе равно 7. Затем 7 возводим в квадрат, что будет равно 49. Последним действием прибавляем и получаем нужное нам 51. Всего получилось ровно пять команд.
Ответ: 22212
Конечное количество значений
Дискретный сигнал<span> - </span>сигнал<span>, </span>имеющий конечное число значений<span>. </span>
Обычно сигналы<span>, </span>передаваемые через дискретные каналы<span>, </span>имеют два или три значения<span>. </span>Использованиесигналов с тремя значениями обеспечивает синхронизацию <span>передачи</span>