вы пишете программу, которая обеспечивает работу умного дома. Программа называется Zolushka.
Для этой программы один раз задаются идеальные значения температуры и чистоты в доме, для этого используются команды SET TEMP t, SET CLEANLINESS c, где t - целое число от -50 до 50, а c - целое в диапазоне от 0 до 100
В конце дня хозяин дома может проверить, не изменилось ли состояние в доме используя следующие две команды:
STATISTIC TEMP - выводит сообщение вида "Zolushka set temperature to N degrees today", где N - какая температура была установлена в этот день. Числа выводится с точностью до одного знака после запятой.
STATISTICS CLEANLINESS- выводит сообщение вида "Zolushka set cleanliness today to Z points" - где Z - то, насколько была установлена чистота сегодня.
входные данные
SET TEMP 25
SET CLEANLINESS 80
выходные данные
Zolushka set temperature to 25.0 degrees today
Zolushka set cleanliness today to 80 points
a,r:real;
begin
Write('Введите a и n: '); Read(a,r);
if a=2*r then Writeln('Квадрат описан около окружности')
else Writeln('Квадрат не описан около окружности')
end.
var
n:char;
cm:string;
begin
Write('Введите натуральное двухзначное число: '); Readln(cm);
Write('Введите цифру от 0 до 9: '); Readln(n);
if pos('3',cm)>0 then Writeln('В числе есть цифра 3')
else Writeln('В числе нет цифры 3');
if (pos('6',cm)>0) or (pos('7',cm)>0) or (pos('9',cm)>0)
then Writeln('В числе есть цифра 6,7 или 9')
else Writeln('В числе нет цифры 6,7 или 9');
if pos(n,cm)>0 then Writeln('В числе есть цифра ',n)
else Writeln('В числе нет цифры ',n)
end.