Надо знать точную модель процессора, знать форм-фактор корпуса и т.д., чтобы подобрать нужную модель материнской карты.
Var
s:integer;
x:real;
begin
repeat
begin
write('Сколько всего журавликов сделали: ');
readln(s);
if s mod 6<>0 then writeln('Они не могли сделать столько, противоречит условию')
end
until s mod 6=0;
x:=s/6;
writeln('Петя и Сережа сделали каждый по ',x);
writeln('Катя сделала ',4*x)
<span>end.</span>
Верхний: ctrl shift +
нижний: ctrl +
в помощь таблица со степенями двойки
1)берем число , и отнимаем максимально возможное из таблицы, с ответом то делаем то же , и под отнимаемыми числами пишем 1 все остальное - нули
2)то же самое , только наоборот : складываем все числа , под которыми 1
Vit*.txt
Неужели так сложно?