Ответ:
А где сочинение? Прикрепи
#4
a)
1
2
3
4
5
b)
1 1
2 4
3 9
4 16
5 25
6 36
7 49
8 64
9 81
10 100
c)
пустой вывод
#5
n = 5
#6
until n > 10 or a == 0
#7
a)
program _1to10;
var
i: integer;
begin
for i := 1 to 10 do
write(i, ' ')
end.
b)
program sqr_7_27;
var
i: integer;
begin
for i := 7 to 27 do
begin
if i mod 2 == 1 then
write(sqr(i), ' ');
end;
end.
c)
program sqrt_3_4per_23;
var
i: integer;
begin
i := 3;
repeat
write(sqrt(i), ' ');
i := i + 4;
until (i > 23);
end.
<em>// PascalABC.NET 3.2, сборка 1381 от 04.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<em>Задача М</em>
begin
var a:=ReadInteger.ToString.AdjacentGroup;
var f:=False;
foreach var g in a do
if g.Count>1 then begin
Write('YES'); f:=true; break
end;
if not f then Write('NO')
end.
<u>Примеры</u>
5221
YES
1232
NO
<em>Задача О</em>
begin
var s:=ReadInteger.ToString;
if s.Length<>(s.Distinct).Count then Write('YES')
else Write('NO')
end.
<u>Примеры</u>
212
YES
12345
NO