Ответ:
#include <stdio.h>;
void main()
{ float d; int a,b,c;
scanf("%i",&a);a=a*254;
b=a/10000;
c=a/100%100;
d=(a%100)/10.;
printf("%i %i %4.1f",b,c,d); }
Объяснение:
<em>// PascalABC.NET 3.2, сборка 1456 от 26.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var s:=Range(10,99).Where(x->(Power(x div 10,3)+Power(x mod 10,3)=n));
if s.Count>0 then s.Println
else Writeln('Нет таких чисел')
end.
<u>Пример</u>
n= 9
12 21
Ну вот тебе внутренняя часть проги:k:=0;
while k<=n do beginif x mod 2=0 then a:=a+1 else s:=s+1k:=k+1end;writeln('Кол-во четных= ', a, ' Кол-во нечетных = ',s)