uses crt;
var a:integer;
begin
write('Введите число: ');
readln(a);
if (a mod 13)=0 then write('Число делится без остатка на 13') else write('Число не делится без остатка на 13');
writeln;
if (a mod 10)=7 then write('Число оканчивается на цифру 7') else write('Число не оканчивается на цифру 7');
end.
Если нужно выполнять программу из-под программной оболочки, удали первую строку.
9)
V=22000*240*5*2=52800000бит=6,2мб
Ответ/ 6,2 мб
Разберем, если Бернс спит:
Виктор и Андре спят
Дан тоже, но у нас сказано, что Гео тогда не спит, а он должен.
-
Значит, Бернс не спит
Если Андре спит, значит Дан спит, и всё.
Такая же ситуация с Виктором и Гео не получится, ведь Андре не будет спать, что противоречит утверждению
Значит спят Андре и Дан
1 шаг. Набрать води в 9л ведро и перелить с 9л ведра в 5л ведро
Итого в 9 литровом ведре - 4 л, а в 5 литровом - 5
2 шаг. Сливаем с пяти литрового воду. С девяти литрового переливаем четыре литры в пятилитровый.
Итого в девяти литром - 0 литров, а в 5 литровом - 4 литры
3 шаг. Набираем воду в 9 л ведро и переливаем 1 литр в 5 л ведро и сливаем воду с 5 литрового ведра.
Итого 9л ведро - 8 л, 5 л ведро - 0 л.
4 шаг. Переливаем воду с 9л ведра в 5л ведро.
ИТОГО в 9 л - 3 литра