Var
x, y, z, n: Integer;
begin
ReadLn(n);
z := n mod 10;
y := (n div 10) mod 10;
x := n div 100;
WriteLn('Первое: ', x);
WriteLn('Второе: ', y);
WriteLn('Третье: ', z);
end.
1/4*1024(байт)=256 байт/64=4 байта*8 бит=32 бита (вес 1 символа)
2^32=<span><span>4294967296 символов в алфавите</span></span>
Строка вводится с клавиатуры(максимум 99 символов). Первое слово должно быть с маленькой буквы или первая и последняя буквы этого слова не должны совпадать(иначе такое слово как Test не засчитается). Также будет засчитываться одна буква(abc d efg, буква d подходит, так как она и первая и последняя)
Var n:array [1..999] of integer;
a,i,c:integer;
begin
write ('Введите кол-во элементов: ');
readln (a);
c:=0;
for i:=1 to a do
begin
write ('Введите ',i,' элемент: ');
readln (n[i]);
if n[i]<0 then c:=i;
end;
WRITELN;
write ('Введённый массив: ');
for i:=1 to a do
begin
write (n[i],' ');
end;
WRITELN;
if c>0 then writeln ('Индекс последнего введённого отрицательного элемента ',c) else writeln ('Отрицательных элементов не было введено!');
end.