Program z1;
var i:integer;
begin
for i:=99999 downto 723 do
if i mod 723=0 then
write (i,' ');
end.
Якщо я правильно зрозумів, тоді це має бути так ↓
Матричные, струйные и лазерные.
Var m,m2,m3: integer;
begin
readln(m);
m2:=round(m-0.45*m);
m3:=m+m2;
writeln('1: ',m,', 2: ',m2,', 3: ',m3,', вместе: ',m+m2+m3);
end.
Пример:
20
1: 20, 2: 11, 3: 31, вместе: 62
(42-34)/0.1 = 80.
2^6=64 - 6 бит мало,
берем 2^7=128 - 7 бит.