Сделал пока часть, остальное завтра допишу
Внешний накопитель ( он же повербанк) является ,, переносной зарядкой". Его часто используют, если отправляются в путешествие туда, где нет розеток, например в поход в лес.
Но и количество запасённой энергии бывает разным, это зависит и от размера внешнего накопителя.
Program n1;
var a,c,b,num: integer;
begin
write('введите число: ');
readln(num);
a:= round(num div 100);
c:=round(num mod 10);
b:=round(((num mod 100)-c)/10);
writeln('сотни: ',a);
writeln('десятки: ',b);
writeln('единицы: ',c);
end.
Легко клавища ентер и пуск домой зашимаешь их и ввцдет слово гнездо но если перевести его на русский!
// PascalABC.NET 3.0, сборка 1073
const
s='QWERTYUIOPASDFGHJKLZXCVBNMQqwertyuiopasdfghjklzxcvbnmq';
var
c:char;
p:integer;
begin
repeat
Write('Введите латинскую букву, иной символ завершит работу: ');
Readln(c);
p:=Pos(c,s);
if p>0 then Writeln('Рядом буква "',s[p+1],'"')
until p=0
end.
<u><em>Тестовое решение:</em></u>
Введите латинскую букву, иной символ завершит работу: y
Рядом буква "u"
Введите латинскую букву, иной символ завершит работу: H
Рядом буква "J"
Введите латинскую букву, иной символ завершит работу: m
Рядом буква "q"
Введите латинскую букву, иной символ завершит работу: P
Рядом буква "A"
Введите латинскую букву, иной символ завершит работу: 5