Program Rick_and_Morty;
var a,b:integer;
Begin
write('введите a: ');
readln (a);
write('введите b: ');
readln (b);
writeln('b^4 = ',b*b*b*b );
writeln('a+b^4 = ',a+b*b*b*b );
writeln('7.1*(a+b^4) = ',7.1*(a+b*b*b*b) );
writeln('7.1*(a+b^4) = ',7.1*(a+b*b*b*b) );
writeln('корень из (7.1*(a+b^4)) = ', sqrt(7.1*(a+b*b*b*b)) );
writeln('a^2 = ', a*a );
writeln('9.213*a^2 = ', 9.213*(a*a) );
writeln('(9.213*a^2)-b = ', (9.213*(a*a))-b );
writeln('ответ:');
writeln('(корень из (7.1*(a+b^4)))/(9.213*a^2)-b = ', (sqrt(7.1*(a+b*b*b*b)))/((9.213*(a*a))-b ) );
writeln('');
writeln('конец');
end.
Можно решить пропорцией
1500 - 75
х - 50
<span>s=input('строка: ');
</span><span>st='';
</span><span>k=1;
</span><span>ch=s[0];
</span><span>for i in range(1,len(s)):
</span><span> if (s[i]!=ch):
</span><span> st=st+ch+str(k);
</span><span> k=1;
</span><span> ch=s[i];
</span><span> else: k+=1;
</span><span>st=st+ch+str(k);
</span><span>print('новая строка: ',st);
</span>строка: aaaAAbbCCCCddDdffFf
<span>новая строка: a3A2b2C4d2D1d1f2F1f1
</span>
Входы для информации: гнезда (разъёмы для перефирии),CD-DVD-привод , дискетки,сканирование через принтер, ввод с клавиатуры, клик мышкой на опр. знаках, запись с микрофона, из интернета.
Выходы: гнёзда для перефирии, печать ,в интернет, монитор и т.д.
Var s:string;
i:integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i] in ['А'..'Я'] then write(ord(s[i])-ord('А')+1,' ')
else write(ord(s[i])-ord('а')+1,' ');
<span>end.</span>