// PascalABC.NET 3.0, сборка 1076
var
c:char;
s:string;
begin
s:='';
for c:='А' to 'Я' do begin s:=s+c; Writeln(s) end
end.
<em><u>Тестовое решение:</u></em>
А
АБ
АБВ
АБВГ
АБВГД
АБВГДЕ
АБВГДЕЖ
АБВГДЕЖЗ
АБВГДЕЖЗИ
АБВГДЕЖЗИЙ
АБВГДЕЖЗИЙК
АБВГДЕЖЗИЙКЛ
АБВГДЕЖЗИЙКЛМ
АБВГДЕЖЗИЙКЛМН
АБВГДЕЖЗИЙКЛМНО
АБВГДЕЖЗИЙКЛМНОП
АБВГДЕЖЗИЙКЛМНОПР
АБВГДЕЖЗИЙКЛМНОПРС
АБВГДЕЖЗИЙКЛМНОПРСТ
АБВГДЕЖЗИЙКЛМНОПРСТУ
АБВГДЕЖЗИЙКЛМНОПРСТУФ
АБВГДЕЖЗИЙКЛМНОПРСТУФХ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮ
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ
var
b, n, s, a: <em>integer</em>;
begin
readln(b, n);
for i: integer := 1 to n do
begin
readln(a);
s += a;
end;
writeln(b >= s ? 'Yes' : 'No');
end.
<em>// PascalABC.NET 3.3, сборка 1599 от 17.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrGen(6,i->i*i-5); a.Println
end.
<u>Результат (индексы динамических массивов начинаются от нуля)</u>
-5 -4 -1 4 11 20
Ответ:
Компьютер
Объяснение:
К "О" - "М" и получаем КОМ
П[У]Т[Ь] - заменяем У на ЬЮ, Ь выбрасываем и получаем ПЬЮ
{С]ЕР[ДЦЕ] - выбрасываем то что в скобках и остается ЕР
1)
print("Введите числа через пробел")
list1 = input().split()
counter = 0
for elem in list1:
if(elem[-1]=='2'):
counter += 1
print(counter)
2)
print("Введите числа через пробел")
list1 = input().split()
counter = 0
for elem in list1:
if(elem[-1]=='4'):
counter += 1
print(counter)
3)
print("Введите числа через пробел")
list1 = input().split()
counter = 0
for elem in list1:
if(elem[-1]=='7'):
counter += 1
print(counter)
4)
list1 = input().split()
counter = 0
list2 = []
key = False
for i in list1:
if(len(i) >= 2):
key = True
list2.append(i)
list1 = [int(i) for i in list1]
if not(key):
print(min(list1[0:4]))
else:
print(min(list2))
То же самое в pastebin:
https://pastebin.com/byZKnUaF