Я думая так: Прогулка отменяется, идет дождь я останусь дома
Если решь шла о переводе то обычно раскладывают на степени.
В качестве примера:
1001
Ставим степени справа на лево от нулевой
1 * 2° + 0 * 2 + 0 * 2² + 1 * 2³
2° = 1
2³ = 8
Следовательно
8 + 1 = 9
9 в десятичной = 1001 в двоичной
function Contains0(n : integer): boolean;
begin
while n > 0 do
if n mod 10 = 0 then
begin
Result := True;
Exit
end
else
n := n div 10;
end;
begin
var M := ArrRandom(22, 1, 999);
M.Println;
var k := 0;
M.Where(p -> Contains0(p)).Foreach(p -> begin Print(p); Inc(k) end);
Writeln(NewLine, k)
end.
512 символов 256-символьного алфавита это 512 байт
2*80*20*512=1638400 байт = 1.5625 мегабайт
Uses crt;
var
b, a: real;
n: integer;
begin
clrscr;
repeat
Write('Выберите фигуру (1-квадрат, 2-прямоугольник)');
Readln(n);
case n of
1:
begin
write('Сторона квадрата=');
readln(a);
Write('S=', a * a);
end;
2:
begin
write('Стороны прямоугольника=');
readln(b, a);
Write('S=', b * a);
end;
else exit;
end;
until false;
end.