Var a:uint64;
k:Integer;
begin
write ('Введите число: ');
readln (a);
repeat
k:=k+1;
a:=a div 10
until a=0;
writeln('Количество цифр: ',k)
end.
var a:string;
begin
write ('Введите число: ');
readln (a);
writeln('Количество цифр: ',Length(a))
end.
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(5,-20,20); a.Println;
var s:=a.Select((x,i)->(x,i)).Where(k->k[0]<0);
if s.Count>0 then s.Select(k->k[1]+1).Println
else Writeln('Отрицательных элементов нет')
end.
<u>Пример</u>
-6 -16 20 7 -19
1 2 5
var
s, s2 : String;
Check : Boolean;
i : Integer;
begin
Write('Введите первое слово: ');
ReadLn(s);
Write('Введите второе слово: ');
ReadLn(s2);
if Length(s) <> Length(s2) then
begin
Writeln('No');
exit;
end;
Check := True;
for i := 1 to Length(s) do
if pos(s[i], s2) <> 0 then
Delete(s, pos(s[i], s2), 1)
else Check := False;
If Check then
Writeln('Yes')
else
Writeln('No');
Readln;
end.
Данная кнопка используется для создания скриншота.
Нажимаем её, потом идём, к примеру, в переписку с кем то и нажимаем вставить. После чего загрузится скриншот, который вы сделали.