Сказано было сформировать массивы с имененем А и В. Заполняем их целыми числами, так что и объявить массивы можно как целые. Но это мелочи, не обязательные.
var
<span>a, b: array[1..20]of integer; </span>
<span> i, s,n: integer; </span>
begin
writeln('Массив А:');
randomize;
for i := 1 to 20 do
begin
a[i] := random(100) - 50;
write(a[i],' ');
<span> if (a[i] > 0) and (i mod 2 = 0) </span><span>then
begin
</span> n:=n+1; <span>
b[n]:= a[i]; </span>
s := s + b[n] * b[n];
end;
end;
writeln();
writeln('Массив В:');
for i:=1 to n do write(b[n]);
writeln;
writeln('S = ', s);
end.
Я так понял у вас такое выражение
125(8) + 11101(2) * A2(16) - 141(8)
в скобках нужно указывать систему счисления.
переведу всё в десятичную и посчитаю
125(8)=85(10)
11101(2)=29(10)
A2(16) = 162(10)
141(8)=97(10)
Получается
85 + 29 * 162 - 97 = 4686(10) = 124E(16) = 11116(8) = 1001001001110(2)
Имеем 4х буквенный алфавит: а=0, к=1, р=2, у=3
акура=01320=0*4^4+1*4^3+3*4^2+2*4^1+0*4^0=64+3*16+2*4=64+48+8=120
карау=10203=256+2*16+3=256+32+3=291
рукаа=23100=2*256+3*64+32=512+192+32=736
укара=31020=3*256+64+2*4=768+64+8=836
урака=32010=3*256+2*64+4=832
Var s:string;
i:integer;
begin
writeln('Введите строку:');
readln(s);
for i:=1 to length(s) do
if i mod 2 = 0 then s[i]:='!';
writeln(s);
end.
Пример:
Введите строку:
Дана строка состоящая из символов
Д!н! !т!о!а!с!с!о!щ!я!и! !и!в!л!в
Операторы цикла while и repeat<span> используются тогда, когда заранее не известно общее количество итераций (повторений вычислений) цикла, а завершение вычислений зависит от некоего условия. Если условие ставится вначале цикла (на входе), то используется оператор While, если на выходе – Repeat. Дальше решить не могу, но вот определение.</span>