Тебе нужно зашифровать слово КОМПЬЮТЕР по алгоритму: 1. Букву М поменяй с первой буквой местами. 2. Букву Ю поменяй местами с последней гласной в слове. 3. Поменяй местами четвёртую и девятую буквы в слове. 4. Запиши в ответ полученный шифр.
Program a1; var a,b: array [1..10] of integer; n,i,k,sum,c: integer; begin Randomize; For i:=1 to 10 do begin a[i]:=random(100); write(a[i]:3); end; Readln (n); For i:=1 to 10 do begin k:=a[i]; while k>0 do begin sum:=sum+(k mod 10); k:=k div 10; end; f (n=sum) then begin inc(c); b[c]:=a[i]; end; end; for i:=1 to c do write(b[i]:2); end.
1) program fagasg; var a,b,c,d: integer; begin Writeln('Введите первое число'); readln(a); Writeln('Введите второе число'); readln(b); Writeln('Введите третье число'); readln(c); d:=0; If a>0 then d:=d+1; If b>0 then d:=d+1; If c>0 then d:=d+1; Writeln('Количество положительных чисел:',d); end. 2) program gsggdfd; var n,s,i: integer; begin writeln('Введите n'); readln(n); s:=0; For i:=1 to n do S:=s+i; Writeln('Сумма последовательности равна:',s); end. 3)Program afsdgf; var A: Array[1..100] of integer; i,h,s,l: integer; begin Writeln('ведите размер массива'); readln(h); s:=1; l:=1; For i:=1 to h do begin A[i]:=s+l; s:=s+2; writeln(A[i]); l:=A[i]; end; end.
ответ:мОКРТЕЮ
Объяснение: