121212 – можно расшифровать как АБАБАБ или ККК, например
253010 – ЧЬИ или БДЬИ
203033 – ТЬЯ или ТЬВВ
Остается 203105 (ТВИД). Эта кодовая цепочка расшифровывается однозначно: 0 может появиться только в конце кода, поэтому в коде обязательно есть 20 и 10. Получается однозначное разбиение на буквы 20-3-10-5.
1.
var s:string; m1,m2,m3:integer;
begin
writeln('- Привет! Я компьютер, а как тебя зовут?');
write('- '); readln(s);
writeln('- ',s,', введи свои оценки по 3 предметам');
write('- '); readln(m1,m2,m3);
writeln('- ',s,', твой средний балл ', (m1+m2+m3)/3);
end.
Пример:
- Привет! Я компьютер, а как тебя зовут?
- Алёна
- Алёна, введи свои оценки по 3 предметам
- 4 4 4
- Алёна, твой средний балл 4
2.
var a,b:integer;
begin
write('a = '); readln(a);
b:=(a div 100)*100 + (a mod 10)*10 + (a div 10 mod 10);
writeln('b = ',b);
end.
Пример:
a = 123
b = 132
Декларативные / Описательные знания
Отвечают на вопросы: Что это? Как это бывало / бывает / случается? Я чувствую / думаю, что…
Где наиболее распространены: Философия Культурология Искусствоведение Художественная критика
<span>b. на слово, в котором находится курсор</span>
//PascalABC.NET
//Версия 3.3, сборка 1627
function f(x: integer): boolean;
begin
f:=false;
var c:=0;
foreach var item in x.ToString.Select(t->t.ToDigit()).Where(r->r<>0) do
if (x mod item=0) then inc(c);
if c=x.ToString.Count then f:=true;
end;
begin
var n:=ReadInteger;
range(1,n).Where(x->f(x)).Println;
end.