<span>Место расположения: Екатеринбург
Дата открытия: 5 октября 2005 года
Материал, из которого он сделан: бетон
Описание внешнего вида: копия кнопок стандартной клавиатуры Windows, QWERTY-раскладка, в масштабе 1:30.
Графическое изображение: см вложение
Размеры: 16x4 м, высота 15 см
Автор: Анатолий Вяткин</span>
<em>// PascalABC.NET 3.3, сборка 1561 от 02.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99).ConvertAll(x->real(x/10));
a.Println;
var imax:=a.Select(x->Abs(x)).ToArray.IndexMax;
var ip:=a.FindIndex(x->x>0)+1;
Writeln('Номер максимального по модулю элемента: ',imax+1);
Writeln('Сумма элементов после первого положительного: ',a[ip:].Sum:0:1)
end.
<u>Пример</u>
n= 13
-5.9 2.8 -8.2 4.8 1.2 -7.3 6.7 4 -5.8 6.4 2.4 -9.3 -8.6
Номер максимального по модулю элемента: 12
Сумма элементов после первого положительного: -13.7
3)
var
i: integer;
s: string;
begin
readln(s);
i := 1;
while (s[i] <> ':') do
begin
write(s[i]);
i := i + 1;
end;
end.
4)
var
i: integer;
s: string;
begin
readln(s);
i := 1;
while i < s.Length do
begin
if(s[i] = ' ') then s[i] := '.';
if(s.Length - i > 2) then if(s[i] = '.') and (s[i + 1] = '.') and (s[i + 2] = '.') then begin
delete(s, i + 1, 2);
end;
if(s.Length - i > 2) and (i > 2) then if(s[i - 1] = '.') and (s[i] = '.') and (s[i + 1] = '.') then
begin
delete(s, i + 1, 2);
end;
i := i + 1;
end;
writeln(s);
end.
Var x,y: real;
begin
write('Введите координаты точки х и у:');
readln(x,y);
if abs(y)<=1 then
if (1<=x) and (x<=5) then
writeln('Да, принадлежит')
else writeln('Нет, не принадлежит')
<span>end.</span>
24576 бит = 3072 байт = 3 КиБ
16384 бит = 2048 байт = 2 КиБ
12288 бит = 1536 байт = 1,5 КиБ
бит = 8192 бит = 1024 байта = 1 КиБ
16384 бит = 2048 байт (
байт) = 2 КиБ
131072 бит = 16384 байт = 16 КиБ
