23 div 5=4
16 div 4=4
5 div 8=0
37 div 10=3
23 mod 5=3
16 mod 4=0
5 mod 8=5
37 mod 10=7
Var s:string;
ar:array[1..10] of integer;
f:text;
i:integer;
begin;
for i:=1 to 10 do
readln(ar[i]);
assign(f,'text.txt');
rewrite(f);
for i:=1 to 10 do
begin;
str(ar[i],s);
write(f,s,' ');
end;
close(f);
<span>end.</span>
1. Начало
2. Ввод числа a
3. a>0
4. налево a=a+1 , направо a<0 ( налево a=a-2, направо a=10)
5. Вывод а
6. Конец
Ответ: Съешь ещё этих мягких французских булок, да выпей же чаю.
<span>Мощность алфавита - это количество символов, из которых состоит алфавит. Например, мощность русского алфавита - 33 символа. </span>