Var n:string;
begin
readln(n);
writeln('Число сотен: ',n[4]);
writeln('Число тысяч: ',n[3]);
<span>end.</span>
Var m : array[1..50] of Integer;
i,max : Integer;
Begin
max:=0;
For i:=1 to 50 do
Begin
m[i]:=Random(100);
if m[i]>max then max:=m[i];
end;
Writeln(max);
end.
Язык C:
m=0; //кол-во отриц. элементов
proizv=1; //произвед отриц элементов
for(i=0; i<9; i++)
{
if (b[i]<0)
{ m++;
proizv=proizv*b[i];
}
}
Ответ:
КОМПЬЮТЕР
Объяснение:
1)к "О" - "М"
2)на рисунке "ПУТЬ". У заменяем на ЬЮ. Апостроф после рисунка говорит, что забираем из слова последнюю букву. Так "ПУТЬ" превращается в "ПЬЮТ"
3)"СЕРДЦЕ", апостроф спереди и три апострофа после рисунка - забираем одну букву сначала слова и три в конце. Остается "ЕР"