1.var a:integer;{объявление переменных} b:real; begin{начало тела программы} write('введите два числа => ');{вывод сообщения пользователю} readln(a,b);{ввод данных пользователем} if (a>5) then {сравнение первого введённого числа с 5} b:=b/2;{если а>5 b приравниваем к b делённое на 2} writeln(b);{выводим b} end.{конец тела программы} 2.var a,b,c,d:integer;{объявление переменных} begin{начало тела программы} write('введите три числа (через пробел) => ');{вывод информации пользователю} read(a,b,c);{ввод инф. пользователем} if (a>=0) then d:=d+1;{если а положительное число счётчик +1} if (b>=0) then d:=d+1;{тоже самое что с верху} if (c>=0) then d:=d+1;{тоже самое что с верху} writeln('количество положительных чисел ',d);{вывод информации} end.{конец тела программы}
Предположим, что фальшивая монета легче подлинной. Разделим монеты на группы по 15 и одну монету отложим в сторону. Взвесим группы по 15. Если весы находятся в равновесии, то фальшивая монета отложена. Если же одна из чаш весов оказалась легче, то фальшивая монета там. 15 монет из легкой чаши снова разделим на 7, 7 и монета в стороне. Повторим взвешивание. Если фальшивая монета не найлена, то из более легкой чаши монетки разделим на 3, 3 и одну. Повторим взвешивание с лекгой чашей в четвертый раз. 1, 1 и монета в стороне. Фальшивка найдена не более чем за 4 взвешивания.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
