Var a,b,i:integer;
begin
readln(a,b);
for i:=a to b do writeln(i,' ',chr(i));
end.
Пример:
35 40
<span>35 #
36 $
37 %
38 &
39 '
40 (</span>
Var S:real;
A,N,i:integer;
Begin
Write('N = ');Read(N);
S:=0;
i:=1;
Repeat
Read(A);
if (A mod 3 = 0)and(A mod 10 = 4) then S:=S+A;
i:=i+1
Until i > N;
WriteLn('S = ',S);
End.
Пример работы программы:
N = 5
1 24 74 54 36
S = 78
// PascalABC.NET 3.1, сборка 1267 от 10.07.2016
begin
var s:=' '+ReadlnString('>');
s:=(s.Replace(' в ',' на '))[2:];
Writeln(s);
end.
<u><em>Тестовые решения</em></u>
> Можем пойти в кино, в театр, в кафешку, а можем посидеть в "Знаниях"
Можем пойти на кино, на театр, на кафешку, а можем посидеть на "Знаниях"
> в лесу мы нашли вот такие грибы.
на лесу мы нашли вот такие грибы.