1)
var s: string; i: byte;
begin
writeln('Введите строку:');
readln(s);
i:=1;
while i<=length(s) do begin
delete(s,i,1);
insert('a',s,i);
i:=i+2;
end;
writeln(s);
end.
---------------------------------------------
Введите строку:
Меняем нечетные символы на а
aеaяaмaнaчaтaыa aиaвaлa aаaа
---------------------------------------------
2) это задание решено в другом Вашем вопросе
znanija.com/task/22037051
Program P;
Var
n, i : Integer;
max, iMax: Integer;
Begin
Write('Enter 10 numbers ');
for i := 1 to 10 do
Begin
Read(n);
if i = 1 then
Begin
max := n;
iMax := i;
End
else
if n > max then
Begin
max := n;
iMax := i;
End;
End;
WriteLn('Max = ', max);
WriteLn('index = ', iMax);
ReadLn;
End.
Дано:
V = 125 Кбайт
N = 16
Найти: Ширину x Высоту ( X и Y)
1) V = x * y * i
<span><span> </span>125 Кбайт = x * y * i</span>
Переведем 125 Кбайт в биты = 125 * 1024 * 8 = 1024 000 Бит
1024 000 = x * y * i
<span>2) <span>N = 2i</span></span>
<span> 16 = 24</span>
i = 4
<span>3) 1024 000 = x * y * 4</span>
x * y = 1024 000 : 4
x * y = 256 000 (Получается, что высоту умножить на ширину)
Отсюда разрешение 640 x 400 = 256 000
<span>Ответ: 640 x 400</span>
Ответ:
// Example program
#include <iostream>
#include <string>
#include <math.h>
int main()
{
int i;
double d;
i = 100;
while (i < 1000) {
d = sqrt(i * 14);
if (d == (long long)d) {
std::cout << i << std::endl;
}
i++;
}
}
Объяснение:
http://cpp.sh/47bmd3