//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
Пример вывода:
Понедельник
1) 70 2) 8 в третьем нужно использовать цикл for. что-то вроде s = 261;
for (i =261;i<287;i++) {
s = s + s}
Сортировка
..........................................
для расшифровки нужно применить обратный алгоритм
1) написать название животного
2) для первой буквы названия найти предыдущую по алфавиту
Животные: (некоторые подбирались исходя из ответа)
Улитка - Т
Бык - А
Лев - К
Енот - Д
Ёж - Е
Сова - Р
Зебра - Ж
Белка - А
Утка - Т
Эму - Ь
Ответ - Так держать
===== PascalABC.NET =====
begin
var x := ArrRandom(20, -99, 99);
x.Println;
var (imax, imin) := (x.IndexMax, x.IndexMin);
var t := (x.First + x.Last) div 2;
(x[imax], x[imin]) := (t, t);
x.Println;
x.Sum.Print
end.