Var
d,m:byte;
Begin
Write('Введите день: ');ReadLn(d);
Write('Введите месяц: ');ReadLn(m);
Case m of
3:if d<21 then Write('Рыбы')
else Write('Овен');
4:if d<21 then Write('Овен')
else Write('Телец');
5:if d<22 then Write('Телец')
else Write('Близнецы');
6:if d<22 then Write('Близнецы')
else Write('Рак');
7:if d<23 then Write('Рак')
else Write('Леа');
8:if d<24 then Write('Леа')
else Write('Дева');
9:if d<24 then Write('Дева')
else Write('Весы');
10:if d<24 then Write('Весы')
else Write('Скорпион');
11:if d<23 then Write('Скорпион')
else Write('Стрелец');
12:if d<22 then Write('Стрелец')
else Write('Козерог');
1:if d<21 then Write('Козерог')
else Write('Водолей');
2:if d<19 then Write('Водолей')
else Write('Рыбы');
else Write('Нет такого месяца')
End;
End.
var i, multi:integer;
s:string;
begin
readln(s);
multi:=1;
for i:=1 to length(s) do begin
if StrToInt(s[i]) mod 3 = 0 then
multi:=multi*StrToInt(s[i]);
end;
if multi = 1 then
writeln('Нет')
else
writeln(multi);
end.
Количество информации = log(2)16 = 4 бита (2^4 = 16).
ПКМ (Правая кнопка мыши) по иконке ворда открыть. Это раз
Второе два быстрых клика по иконке на рабочем столе.
Третье создать фаил ворд вот так ПКМ-Создать файл Word.
И четвертое создаем файл в разрешении ТхТ и меняем разрешение на dox.
Пятое на всякий случай создаем тхт документ открываем его через ПКМ и вариант в контекстном меню открыть с помощью.