Ответ:
8
Объяснение:
В переменной a подсчитывается длина числа x. Например, при x = 13 значение a после работы алгоритма будет равно 2. В переменной b считается сумма всех цифр числа x. Например, при x = 13 значение b после работы алгоритма будет равно 4.
Таким образом, нас просят найти количество двузначных (так как после работы алгоритма a = 2) чисел x с суммой цифр, равной 11 (так как после работы алгоритма b = 11). Таких чисел всего 8: 29, 38, 47, 56, 65, 74, 83, 92.
Program z1;
var s:string;
var i,n,f:integer;
var ch:char;
begin
writeln('Введите строку');
readln(s);
f:=0;
n:=length(s);
ch:=s[n];
for i:=1 to n do
if(s[i]=ch) then
f:=f+1;
if(f<>0) then
writeln('yes')
else writeln('no');
end.
1) 136:4+х=257
39+х=257
х=218
2) а+884:4=570
а+221=570
а=349
3) у-125:5=800
у-25=800
у=825
4) 147:7×в=210
21в=210
в=10
function Max(a, b, c: integer): integer;
var
m: integer;
begin
if a > b then
m := a
else
m := b;
if c > m then
m := c;
Max := m;
end;
function Min(a, b, c: integer): integer;
var
m: integer;
begin
if a < b then
m := a
else
m := b;
if c < m then
m := c;
Min := m;
end;
procedure Swap(var a, b: integer);
var
t: integer;
begin
t := a;
a := b;
b := t;
end;
var
a, b, c, t: integer;
begin
Write('Введи через пробел три числа: ');
Read(a, b, c);
Writeln('Max = ', Max(a, b, c), ', min = ', Min(a, b, c));
if b > a then
Swap(a, b);
if c > b then
begin
Swap(b, c);
if b > a then
Swap(a, b);
end;
Writeln(a, ' ', b, ' ', c);
end.