Program lol (input, output);
var a, n, b, p,s, m:integer;
c:real;
begin
read (n);
a:=n;
b:=0;
c:=0;
p:=1;
while a <> 0 do
begin
a:=a div 10;
b:=b+1;
end;
while b <> 0 do
begin
p:=1;
for m:=1 to b do
p:=p*10;
s:=(n mod p) div (p div 10);
if s > 7 then
c:=c+s;
b:=b-1;
end;
writeln (c);
end.
<span>Самой главной деталью компьютера является
+ процессор это как бы мозг компьютера </span>
Если нужен паскаль то вот:
var a,b: integer;
begin
writeln('Введите сторону a');
readln(a);
writeln('Введите сторону b');
readln(b);
writeln;
writeln('Периметр=',(a+b)*2);
readln;
end.
<span>program amoeba; </span>
<span>var i,count:integer; </span>
<span>begin </span>
<span>i:=3; //количество часов </span>
<span>count:=1; //количество амеб </span>
<span>while i < = 24 do </span>
<span>begin </span>
<span>count:=count*2; //каждые 3 часа количество амеб удваивается </span>
<span>writeln(i,' hours: ',count); //выводим кол-во часов и амеб </span>
<span>i:=i+3; </span>
<span>end; </span>
<span>readln; </span>
<span>end.</span>
Хард- к<span>омпьютерный носитель информации</span>