Ответ: Четверг
Лев вчера лгал. Он сказал правду, он вчера лгал
Единорог солгал т.к. сегодня четверг. Он тоже сказал что не врёт.
Var
n:integer;
c:string;
begin
write('Введите число от 10 до 9999 ->');
readln(n);
Str(n,c);
writeln('Предпоследняя цифра в числе равна ',c[length(c)-1])
end.
Пример работы программы:
Введите число от 10 до 9999 ->1523
Предпоследняя цифра в числе равна 2
А) 76
б) 21
.......................................
Var x,y:real;
begin
write('x, y:');
readln(x,y);
if (y<=-0.75*x*x+5)and(y>=x)and(y>=-x)
then writeln('Точка принадлежит заштрихованной области')
else writeln('Точка не принадлежит заштрихованной области');
end.
Пример:
<span>x, y:
2 1
Точка не принадлежит заштрихованной области</span>
Закрашены в разные цвета. Какими наименьшим числом красок можно обойтись? - это продолжение? если это то Ответ 4