Просто выделяй обе эти ячейки и растягивай их
<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
2) Dim A as integer (объявление переменной)
A=val(Console.ReadLine()) (ввод переменной)
If a mod 2 = 0 then
Writeline =(" Чётное")
else
Writeline = ("Нечётное")
Я в другом языке программирую, но если такой вариант пойдёт, могу остальные дописать. <span />
Составьте программу ввода и вывода массива;3,4,-9,8,1,-6,2,-5,-1,7,5,9.
В ТАБЛО ДАМ ПИЗ Д...
Var a: array[1..50] of Integer;
x,i: integer;
begin
writeln('количество элементов в массиве:');
readln(x);
for i:=1 to x do
begin
readln(a[i]);
end;
for i:=1 to x do
begin
writeln(a[i]);
end;
end.
1)вскипятить воду в чайнике
2)положить в пустую чашку чайный пакутик
3)залить в чашку горячюю воду
4) подождать минуту
5) вытащить пакетик
ГОТОВО !