Ответ : 2) 16 2 11
----------------------------------------------
1) 2 - сумма старших разрядов ( 1+1) ; 2 < 10
2) 16 (<18) - сумма средних разрядов
3) 11 (<18) - сумма младших разрядов
Program Amstrong;
var
a,b: integer;
i,j,k,
ci,
si,mi,
errkod: integer;
sti: string;
flag: Boolean;
begin
Readln(a,b);
flag:=false;
for i:=a to b do
begin
str(i, sti);
si:=0;
for j:=1 to Length(sti) do
begin
val(sti[j],mi,errkod);
ci:=1;
for k:=1 to Length(sti) do
ci:=ci*mi;
si:=si+ci;
end;
if si=i then
begin
write(si,' ');
flag:=true
end;
end;
if not flag then write(-1);
Readln;
end.
Решение
По условию задачи, должно выполняться следующее требование
A* B = 77, где A и B - количество мальчиков или девочек в классе, найдём из уравнения A
A = 77 : B Из уравнения очевидно, что B - может принимать значения 7 или 11, тогда A -тоже принимает какое- нибудь из этих значений.
Вывод: количество мальчиков или девочек в классе - 7 или 11. В сумме дают
7 +11 = 18
Ответ: в классе 18 человек.
Var
str : string;
i,c,a,count : integer;
begin
i:=1;
count :=0;
writeln('Вводите числа, как только введете все числа нажмите любую букву');
while i=1 do begin
readln(str);
val(str,a,c);
if ( a mod 2 <>0) then count := count +a;
if(c<>0) then i:=0;
end;
writeln('Сумма нечетных чисел = ', count);
<span>end.</span>
Его используют для связи слов
По Русски переводится И