1 Перечислить пункты обязательного раздела Главного
меню
2 Перечислить пункты произвольного раздела Главного
меню
3 Перечислить пункты Контекстного меню, не выделяя
объекты
4 Перечислить пункты Контекстного меню, выделив
какой-либо из объектов. Указать, какой объект выделили

Ответы

Ответ дал: Гость

если по обем чашечкам разложить сначала по одной детали так, чтобы они уравновесились .предположим, что деталь весит больше чем три остальные. на чашечки положить еще по одной детали, и одна чашечка перевесит другую.та верхняя деталь, что была на чашечке которую перевесили и есть необходимая. если же деталь весит больше чем все остальные, то все сделать наоборот.

Ответ дал: Гость

program pr;

var i: integer;

mas: array[1..7]of integer;

begin

for i: =1 to 7 do

begin

writeln ('введите температуру ', i ,' сентября');

readln (mas[i]);

end;

for i: =1 to 7 do writeln (i, ' сентября температура была ' mas[i]);

readln;

end.

Ответ дал: Гость

по введенному натуральному числу n(n< =100) обозначаешему количество ворон вывести надпись ,на дереве n ворон.где ворона склоняеться соответсвено n: 'ворон'.'ворона"вороны' в случаем n превышаюшего 100 вывести надпись 'ветка обламилась'

uses crt; var n : integer; begin clrscr; repeat write ( 'введите число от 1 до 100 n = ' ); readln (n ); until n> 0; case n of 11..14 : write ( 'сидело ' ,n , ' ворон' ); 1..10 ,15..100 : case n mod 10 of 1 : write ( 'на дереве сидела ' ,n , ' ворона' ); 2..4 : write ( 'на дереве сидели ' ,n , ' вороны' ); 0 ,5..9 : write ( 'на дереве сидело ' ,n , ' ворон' ); end else write ( 'ветка обломилась! ' ); end; readln; end.

Ответ дал: Гость

uses crt; var n: integer; beginread(n)n: =abs(n)-2; write(n); end.