Vb. dim counta as integer dim countb as integer dim x as integer dim a as integer dim b as integer a = inputbox("введите а") b = inputbox("введите b") for x = 1 to len(cstr(a)) if cint(mid(cstr(a), x, 1)) mod 2 = 0 then counta += 1 next for x = 1 to len(cstr(b)) if cint(mid(cstr(b), x, 1)) mod 2 = 0 then countb += 1 ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 next if counta = countb then msgbox("количество четных цифр в двух числах равно") if counta > countb then msgbox("в первом числе количество четных цифр больше") else msgbox("во втором числе количество четных цифр больше")
ustinovalubov6666
14.12.2021
Var xl,xr,h,x: real; i: integer; begin write('введите левую и правую границы изменения х, затем шаг: '); read(xl,xr,h); for i: =1 to trunc((xr-xl)/h)+1 do begin x: =xl+(i-1)*h; writeln(x: 0: 4,' ',abs(sin(x))+cos(abs( end end. пример введите левую и правую границы изменения х, затем шаг: 1.2 3 0.18 1.2000 1.2943968404439 1.3800 1.17149436167019 1.5600 1.01073783728823 1.7400 0.817321730886476 1.9200 0.597495822534427 2.1000 0.358363262049017 2.2800 0.107651047653376 2.4600 -0.146539653537401 2.6400 -0.395995275405633 2.8200 -0.632655254626053 3.0000 -0.848872488540578