//PascalGUI
var
a:integer;
begin
readln(a);
case a of
1:writeln('Понедельник');
2:writeln('Вторник');
3:writeln('Среда');
4:writeln('Четверг');
5:writeln('Пятница');
6:writeln('Суббота');
7:writeln('Воскресенье')
else writeln('Не день недели');
end;
end.
Пример ввода:
1
Пример вывода:
Понедельник
Ответ:Это не евляется простым числом потомучто это дробное 0.(9)
8 00-8 45
8 50-9 35
9 40-10 25
10 30- 11 15
11 20-12 05
После упрощения получим.
AvB
<span>
</span>
var
x:integer;
begin
readln(x);
if(x mod 2 = 0) then writeln('Четное')
else writeln('Нечетное');
end.