// 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
Нц
нц 3 раз
вниз
закрасить
вниз
кц
нц 3 раз
вверх
кц
влево
кц
program cikl;
var i:integer;
begin
for i:=20 to 99 do
if i mod 10<>7 then write(i:3);
end.
1) x=3, 4, 5, 6, 7, 8 - 6 раз (8-3+1 = 6)
2) 1 раз
3) 0 раз (в цикле с "to" конечное значение параметра должно быть >= начального значения, а здесь 3<5)
4) x = 7, 6, 5, 4 - 4 раза
5) 1 раз
6) 0 раз (в цикле с "downto" конечное значение параметра должно быть <= начального значения, а здесь 3<5)
Var
n,s,k,a,i:integer;
begin
Read(n);
s:=0; k:=0;
for i:=1 to n do begin
Read(a);
s:=s+a;
if a mod 2=0 then Inc(k)
end;
Writeln(s,' ',k)
end.
Результат
7 2 3 -2 4 -7 10 1
11 4