Нужна ваша ! в необходимо составить программу на алгоритмическом языке visual basic в excel.причем, программа должна быть записана в двух вариантах: в первом варианте необходимо использовать оператор условного перехода tо, а во втором операторы цикла , next.сама : составить программу расчета доз внесения минеральных удобрений под запланированный урожай (кг действующего вещества на 1 га) по формуле: д=(в/к1)+((сз-сф)*к2)/(к3*т),где в -вынос питательного вещества запланированным урожаем, кг/га; к1 - коэффициент использования растениями питательного вещества удобрений; сз - заданное содержание питательного вещества в почве, мг на 100 г; сф -фактическое содержание питательного вещества в почве, мг на 100 г; к2 - коэффициент пересчета мг на 100 г в кг/га; к3 - коэффициент влияния удобрения на содержание питательного вещества в почве; т -время, за которое намечено получить заданное содержание питательных веществ в почве. фактическое содержание питательного вещества в почве меняется в пределах от 10 до 25 мг на 100 г с шагом 1 мг. заранее !
End else Begin x :=-c / b; Writeln ('Root x=' ,x:8:2); Readln; Halt End else Begin D :=Sqr (b) - 4 * a * c; if D<0 then Begin Writeln ('The equation has no real roots');
readln; Halt End else Begin x:=-b /( 2 * a ); if D = 0 then Begin Writeln ('Roots are equal x1=x2=', x:8:2); Readln; Halt End; x2:= Sqrt (D)/(2*a); x1:= x2 + x; x2:= x - x2; Writeln('Roots: x1=',x1:8:2, ' x2= ',x2:8:2) EndEnd; Readln;End.
#include <string>
#include <ctype.h>
using namespace std;
int main() {
freopen("D:\\input.txt", "r", stdin);
freopen("D:\\output.txt", "w", stdout);
char s[10001];
string newtext = "";
int c = 0;
gets_s(s);
for (int i = 0; s[i] != '\0'; i++) {
if (s[i] == 'e' && s[i + 1] == 'n' && s[i + 2] == 'd') {
c += 3;
newtext += s[i];
newtext += " ";
newtext += s[i + 1];
newtext += " ";
newtext += s[i + 2];
break;
}
c++;
newtext += s[i];
newtext += " ";
}
cout << c << endl << newtext;
}