PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018 Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(ReadInteger('n='),0,9); a.Println; a.GroupBy(t->t).Select(t->(t.Key,t.Count)).OrderBy(t->t[0]) .Foreach(t->Writeln(t[0],' - ',t[1])) end.
задача 1. x=int(input()) if x%2==0: #если число четное x+=2 #следующее четное число больше заданного на 2 else: #если число нечетное x+=1 #ближайшее четное число больше заданного на 1 print(x)
задача 2. int(input()) #день недели первого числа текущего месяца n=int(input()) #число текущего месяца n=n%7-1 #синхронно перемещаемся по календарю ровно по неделям m=(m+n)%7 #прибавляем кол-во дней от первого дня месяца if m==0: #номер воскресенья 7 дает остаток = 0 от деления на 7 print(7) else: print(m) задача 3. n=int(input()) #рубли m=int(input()) #копейки t=int(input()) #количество шоколадок x=m+n*100 #перевести стоимость 1 шоколадки в копейки x*=t #столько потрачено денег на все шоколадки в копейках n=x//100 #столько потрачено рублей m=x%100 #столько потрачено копеек print(n,end=' руб ') print(m,end=' копеек')
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),0,9); a.Println;
a.GroupBy(t->t).Select(t->(t.Key,t.Count)).OrderBy(t->t[0])
.Foreach(t->Writeln(t[0],' - ',t[1]))
end.
Пример
n= 100
5 7 6 0 1 3 1 4 9 2 8 7 5 2 1 6 1 6 6 6 1 0 1 2 4 9 7 0 5 6 2 7 3 3 1 5 7 5 9 8 1 8 7 8 8 7 3 2 4 4 5 6 8 3 9 4 5 3 6 2 6 0 9 3 9 0 4 2 1 6 9 6 7 7 5 3 3 3 3 7 6 4 5 0 0 5 8 0 4 6 9 3 8 6 1 0 9 3 8 7
0 - 9
1 - 10
2 - 7
3 - 13
4 - 8
5 - 10
6 - 14
7 - 11
8 - 9
9 - 9