Var
a, b : array [1..1000] of integer;
n, m, i : integer;
begin
read (n);
for i := 1 to n do read (a[i]);
m := 0;
for i := 1 to n do
if a[i] = 0 then
begin
m := m + 1;
b[m] := i;
end;
for i := 1 to m do write (b[i], ' ');
end. <span>
</span>
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>
</h3><h3 />
begin
MatrRandom.Println.Rows.Where((t,i)->(i+1) mod 2<>0)
.SelectMany(t->t).Min.Println;
end.
<em><u>Пример в приложении.</u></em>
var
ed, m: Integer;
kg: Real;
begin
Write('Введите № единицы массы (1-кг, 2-мг, 3-гр, 4-тонна, 5-центнер): ');
Readln(ed);
if not (ed in [1..5]) then begin
Writeln ('Ошибка ввода номера для единицы массы!');
Exit;
end;
Write('Введите массу в этих единицах: ');
Readln(m);
kg := 0;
case ed of
1: kg := m;
2: kg := m / 1000000;
3: kg := m / 1000;
4: kg := m * 1000;
5: kg := m * 100;
end;
WriteLn ('Масса = ' + FloatToStr(Kg) + ' кг.');
end;
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadlnString.ToWords; // читаем строку, образуем массив слов
var s:=(a[:2]+a[3:]).JoinIntoString; // получаем новую строку
Writeln(s) // вывод...
end.
<u>Пояснения.</u>
a - массив с индексами от 0 до n-1, где n - число слов.
Срез a[:2] возвращает последовательность элементов массива 0 и 1.
Срез a[3:] возвращает последовательность элементов массива, начиная с третьего и до конца массива. Объединение последовательностей порождает необходимый набор слов, который объединяется в строку через пробел при помощи JoinIntoString.
<u>Пример</u>
А роза упала на лапу Азора
А роза на лапу Азора
Ответ:
48 80
Объяснение:
program abcd;
var
i, j, k: shortint;
begin
for i := 1 to 100 do
begin
k := 2;
for j := 2 to i div 2 do
if i mod j = 0 then Inc(k);
if k = 10 then Write(i, ' ');
end;
end.
