Закономерность выборки состоит в том,что выбирается каждая четвертая буква в алфавите.
А,д,з,л,п,у,ч,ы,Я.
Program dialog;
var
a: integer;
begin
writeln('Привет! Какая у вас температура? ');
readln(a);
if a>37 then
writeln('Лечитесь дома')
else if a<36 then
writeln('Седите дома')
else
writeln('Идите в шоклу');
end.
Var a,b,c,m,l,s1,s,k:real;
begin
write('Длина, ширина и высота комнаты: ');
readln(a,b,c);
write('Длина, ширина и цена одного рулона: ');
readln(l,m,s1);
k:=2*(a+b)*c/m/l;
if k-int(k)>0 then k:=k+1;
k:=int(k);
s:=s1*k;
writeln('Потребуется рулонов: ',k);
writeln('Стоимость покупки: ',s)
<span>end.</span>
1)Явления природы
2)Транспортные средства
3)Предметы мебели
4)Детские предметы
5)Живые организмы
6)Домашние животные
7)Единицы измерения
8)Обувь
9)Существительные женского рода
10)Изменяются
11)Члены предложения
12)Члены предложения
13)Геометрические фигуры
14)Вывод информации
15)