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.
В задании не указано, чем разделены группы в строке. Поэтому принято, что группа состоит из нулей и единиц, а разделителями групп может быть любое количество любых иных символов. Если это не так, просто вводите те символы-разделитеоли, каккие считаете нужными.
// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadlnString('Вводите:').MatchValues('[01]+')
.Where(s->s.Length.IsOdd).ToArray;
var b:=a.Select(w->w.ToCharArray.Where(c->c='1').Count).ToArray;
a.Zip(b,(p,q)->p+' - '+q).PrintLines
end.
1) любого символа из какого набора? русский алфавит? арабская вязь? все возможные иероглифы?
2) 1112
3) 127
4) 1 или 2
5) 2
6) 1 и 2
7) системник, мыш, клавиатура, монитор (какой это номер выбери сам)
8) 2
Var
a,b:integer;
c:string;
begin
readln(a,b);
readln(c);
if c='+' then
writeln(a+b);
if c='*' then
writeln(a*b);
if c='-' then
writeln(a-b);
<span>end.
так проще</span>
Максимальное количество цветов равно двум в степени, равной количеству бит, отведенных под хранения информации о цвете. В данном случае два во второй степени - <u>четыре цвета</u>.