Var s1,s2,s:string; i:integer;
begin
s1:='курица';
s2:='роза';
s:=s1[1]+s1[2]+s1[1]+s1[2]+s2;
for i:=5 to length(s) do if s[i]='о' then s[i]:='у';
writeln(s);
end.
Результат:
кукуруза
Пусть объем жесткого диска 160Гб
160Гб = 160 * 1024 * 1024 * 1024 байт = 171 798 691 840 байт
Вес одного символа 8 бит = 1 байт
Вес страницы = 40 * 60 * 1 байт = 2400 байт
Кол-во страниц = 171 798 691 840 / 2400 = 71582788
Округляем в меньшую сторону, ведь страниц может быть только целое кол-во
Высота = 223 696 213 / 100 = 715827.88cm = 7158.2788m
512=2^9 1000=2^3 *125 512000=2^12 *125 6=2*3
Размер файла = (2^12 * 125 * 2 * 3 ) бит =(2^10 * 375) байт =375 Кбайт
Ответ 375 Кбайт
из диаграмм Эйлера верна я думаб под буквой Б
Это реализовано с помощью цикла for:
Program p1;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
For i:=0 to 1 do
Begin
Write('Введите число: ');
Readln(a2);
if a2>a1 then
k:=k+1;
a1:=a2;
End;
if k=2 then
Writeln('Эта последовательность является возрастающей') else
Writeln('Эта последовательность не является возрастающей');
End.
Это реализовано с помощью цикла while:
Program p2;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
While i<>2 do
Begin
Write('Введите число: ');
Readln(a2);
if a2>a1 then
k:=k+1;
a1:=a2;
i:=i+1;
End;
if k=2 then Writeln('Эта последовательность является возрастающей') else Writeln('Эта последовательность не является возрастающей');
End.
Это реализовано с помощью цикла repeat:
Program p3;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
repeat
Begin
i:=i+1;
Write('Введите число: ');
Readln(a2);
if a2>a1 then
k:=k+1;
a1:=a2;
End;
until i=2;
if k=2 then
Writeln('Эта последовательность является возрастающей') else
Writeln('Эта последовательность не является возрастающей');
End.