Var s : string;
i : integer;
begin
readln(s);
for i := 1 to length(s) do writeln(s[i]);
end.
А) (а+б) - 2*а*б
б) 6*а*а + 15*а*б - 13*б*б
в)а*а - б*б
1 байт = 8 бит
теперь считай)
Моя папка - это хобби, школа, музыка, картинки, видеозаписи.
Алг
нач
цел N = 5
цел i, index
вещ minimum
вещтаб mas[1:N]
вывод "Введите 1 элемент: "
ввод mas[1];
mas[1] := mas[1] * 2
minimum := mas[1]
index := 1;
нц для i от 2 до N
вывод "Введите ", i, " элемент: "
ввод mas[i]
mas[i] := mas[i] * 2;
если mas[i] < minimum то
minimum := mas[i]
index := i;
всё
кц
вывод нс, "Обработнный массив:", нс, нс
нц для i от 1 до N
вывод "Элемент ", i, " = ", mas[i], нс
кц
вывод нс, "Минимальный элемент: A[", index, "] = ", minimum
кон