1.Алгоритм - это … 2.Какой из документов является алгоритмом? а) Правила техники безопасности. б) Инструкция - id1223476720220211 от тильняшка5 11.02.2022 22:28

Question

Информатика: 1.Алгоритм - это … 2.Какой из документов является алгоритмом? а) Правила техники безопасности. б) Инструкция по получению денег в банкомате. в) Расписание уроков. 3.Стоит ли нам составлять алгоритм для решения одного примера? Почему? 4.Составьте блок-схему вычисления квадратного уравнения через дискриминант

тильняшка5 · Accepted Answer

var
str, num: string;

begin
readln(str); //str := 'Day 10, mice 8: "Year" 7 is a mistake 91.';
foreach c: char in str do
if (Char.IsDigit(c)) then
num += c;
for j: byte := 1 to length(num) - 2 do
for i: byte := 1 to length(num) - 1 do
if (num[i] < num[i + 1]) then
begin
str[1] := num[i];
num[i] := num[i + 1];
num[i + 1] := str[1];
end;
if (Integer.Parse(num) > 0) then
begin
while (num[num.Length - 1] = '0') do
num.Remove(num.Length - 1);
writeln('Да' + #13 + num);
end
else
writeln('Нет');
end.

MOGZ ответил