Program A;
uses crt;
<span>var </span>
<span>s: string; </span>
<span>k,j,f: integer; </span>
<span>ch: char; </span>
<span>begin </span>
<span>read(S); </span>
<span>f:=0; </span>
<span>for k:=1 to length(s) do </span>
<span>for j:=1 to length(s) do </span>
<span>if ((s[k]=s[j]) and (k<>j)) then begin f:=1; ch:=s[k]; end; </span>
<span>if f=1 then Writeln('YES - ',ch) else write('NO'); </span>
<span>readln; </span>
<span>End.</span>
Var a,b,s:integer;
begin
read(a,b);
for a:=a to b do
s+=a;
writeln(s);
<span>end.</span>
10. Подставляем значения переменных х1, х2, х3, х4 во все функции и получается, что подходит только 4 функция.
Ответ: 4
11. Также можно подставить все данные числа в функцию, и только при х=8 значение функции равно 0.
Ответ: 4.
12. ГВБА
Вот, добавьте текст сего отсюда как новый макрос в документ:)
{В данном случае не имеет смысла возиться с числами, куда лучше подходят строки}
//Pascal ABC.NET v3.1 сборка 1172
Var
s,c:string;
begin
readln(s);
c:=s[length(s)-1]+s[length(s)];
delete(s,length(s)-1,2);
writeln(s,' руб. ',c,' коп.');
end.
Пример ввода:
8705553535
Пример вывода:
87055535 руб. 35 коп.