Что значит "входит в запись числа"? Пример покажите
начало
1 Взять котёл.
2 Налить воду в ведро
3 Перелить воду из ведра в котёл.
4 Развести огонь
5 Поставить котёл на огонь.
6 Взять топор
7 Положить топор в котел.
8 Найти крупу
9 Добавить крупу в котел
10 Достать чистую посуду
11 Снять котёл с огня.
12 Положить получившуюся кашу в посуду.
13 Найти масло
14 Добавить в кашу масло
конец
ДРУГ | длина = 4 | четная
ДРУГЯ --> ДСУДЯ | Длина = 5 | нечет.
АДРУГЯ --> АЕРФГА
Ответ: АЕРФГА
Var
a:array[1..10]of integer;
i:integer;
Begin
For i:= 1 to 10 do
begin
Read(a[i]);
if a[i] mod 2 <>0 then Write(a[i], ' ');
end;
end.
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/
//Более современное решение
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
Begin
var a:= ReadlnString('Введите массив').ToIntegers;
SetLength(a, 10);
a.Where(t->t.isOdd).Println;
end.
Ответ:
координатными устройствами ввода
Объяснение: