<span>int A = Convert.ToInt32(t1.text); //получаем значение из поля и переводим строку в число
bool f=false; //объявили логическую переменную и дали ей значен false
while (A!=0) //цикл, пока А не будет равно 0 он выполняется
{
if(A%10==5) //условие, проверяет если при делении А на 10 равно 5, то
f=true; //флаг получает true
A/=10; //А делиться на 10 и записывается в А
}
T2.text=f?"da":"net";
// тернарный оператор, если t2.text =f, то будет da, если не равно, то будет net</span>
function summa(var x: mas; su: real): real;
var
i: integer;
begin
su := 0;
for i := 1 to n do
su := su + x[i];
summa:=su;
writeln('sum=', su);
end;
Ответ:
Объяснение:
в питоне из натурального числа удалить четные цифры в числе так чтобы не нарушать порядок других оставшихся чисел
Блок-схема - в прилагаемом файле.