Имеется и код, немного отличающийся от нужного по . необходимо отредактировать код. : в поле ввода edtvvod вводится строка. необходимо дописать процедуру обработки нажатия кнопки btnrun, которая выведет в надпись lblvyvod среднеарифметическое встретившихся четных цифр, стоящих на нечетных позициях во введённой строке, если таковых нет, то результат 0. (вы должны написать только текст, который должен быть вставлен вместо многоточия) procedure tform1.btnrunclick(sender: tobject); var s: string; sum,x,i,k,c: integer; sa: real; begin s: =edtvvod.text; lblvyvod.caption: =floattostr(sa); end; код: sum: =0; c: =0; sa: =10; for i: =1 to length(s) do begin val(s[i],x,k); if (k=0) and (x mod 10< > 0) and (x> sum) then sum: =x; if (k=0) and (x mod 10< > 0) and (x c: =c+1; end; if c< > 0 then sa: =sum/sa else sa: =0;
145
372
Ответы на вопрос:
Procedure tform1.btnrunclick(sender: tobject); var s: string; sum, x, i, count: integer; begin s : = edtvvod.text; lblvyvod.caption : = floattostr(0); sum : = 0; count : = 0; for i : = 1 to length(s) do begin if i mod 2 = 0 then continue; x : = strtoint(s[i]); if x mod 2 = 1 then continue; sum : = sum + x; count : = count + 1; end; if count > 0 then lblvyvod.caption : = floattostr(sum / count); end; убрала кое что ненужное отформатировала увы проверить негде, так что на ваш страх и риск. логика правильная
Program dlina; uses crt; var a,b,c,l: real; begin clrscr; writeln('введите длины катетов'); readln(a,b); c: =sqrt(a*a+b*b); l: =3.14*c; writeln('длина описанной окружности с=',l); readln; readkey; end.
Популярно: Информатика
-
Мари789020.11.2022 14:46
-
Мамиами11.09.2020 19:00
-
Balans45624.02.2020 23:54
-
asylzhan197707.05.2021 06:14
-
masha030123.01.2023 14:48
-
суперкот1418.06.2020 04:24
-
sock211.04.2022 04:54
-
nyamnov10.12.2022 09:51
-
Марго2211119.09.2020 14:49
-
anna2003200416.09.2020 15:46