program n1; uses crt; var k,i: integer; begink: =1; for i: =1 to 10 do k: =k*i; writeln(k); end.
блок-схема вложена.
записи в блоках (по порядку сверху вниз):
- начало
- k: =1;
i: =1 to n
k: =k*1
k
ну и снизу разумеется конец программы в овале, забыла дорисовать.
Спасибо
Ответ дал: Гость
если по обем чашечкам разложить сначала по одной детали так, чтобы они уравновесились .предположим, что деталь весит больше чем три остальные. на чашечки положить еще по одной детали, и одна чашечка перевесит другую.та верхняя деталь, что была на чашечке которую перевесили и есть необходимая. если же деталь весит больше чем все остальные, то все сделать наоборот.
Популярные вопросы