Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1)tut kazhdii simvol zanimaet 1 bait(tak imeem bukvi alfavita( soobshenie s uchetom probela zanimaet 10 bait.
2)tut kazhdii simvol zanimaet 1 bait(tak ispol'zovani znaki + i - pmimo 0 i 1);
soobshenie zanimaet 11 bait.
3)analogichno 15 bait.
мало данных для главное - размер пробоины и размер листа
var a: array [1..16] of integer;
i,s,c,d: integer;
begin
randomize;
read(c,d);
for i : = 1 to 16 do begin
a[i]: = random(d+c) - c;
if a[i]> 0 then s: = s + a[i];
end;
writeln(s);
end.
write("");
или что тебе надо?
Популярные вопросы