Program ghjkligohqfaqruyfgeyfqgwqc;
var a, b, c, i :integer;
BEGIN
writeln (' Введите два числа, первое должно быть меньше и еще число делитель');
readln (a, b, c);
for i:=a to b do
begin
if (a*a) mod c=0 then
writeln (a*a);
a:=a+1;
end;
end.
<span>Водитель в данном случае - управляющая система, а автомобиль - система управления, приборы автомобиля - каналы информационной связи, именно информационная связь используется в этом примере. Прямая линия: команды, исполняющие водитель или автомобиль. Обратная: состояние окр. среды и автомобиля. </span>
Это пользователь... тыдым с:
На доске написано 16 чисел [92, 84, 64, 72, 77, 61, 89, 88, 91, 69, 75, 65, 68, 75, 52, 98] (именно в таком порядке). Дима играе
любовь130679
Можно, конечно, разобрать последовательность ходов вручную, но лично я боюсь ошибиться. Когда перемалываешь много цифр, то как бы, сами знаете, есть риск.
Поэтому хватаюсь за любимую сиську (в смысле язык си), и кодирую этот алгоритм с заданным массивом исходных числе. Жимкаем кнопку F9 (на Dev-C++), и через микросекунду получаем ответ: 1208 очков.
Ну, не знаю уж правильно или нет, но так у меня получилось. Если не так, то чур виноват не я, а сиська.