Совсем не понимаю информатику. написать программу (алгоритм), нарисовать блок схему для решения 1. вычислить - id665362920200224 от nikabelousova11 24.02.2020 07:48

Question

Информатика: Совсем не понимаю информатику. написать программу (алгоритм), нарисовать блок схему для решения 1. вычислить y по формуле: y = 1- x2 + 5x4 , где x - вводимое целое число. 2. в прямоугольном треугольнике известны катет и гипотенуза. найдите другой катет. 3.вводятся величины x,y целого типа. написать программу для обмена значений величин. необходимо использовать величину т. протестировать программу для x=5 и y=-11.

nikabelousova11 · Accepted Answer

//Pascal ABC.NET 3.2 сборка 1318 Var   f:text;   n:integer;   s:string;     procedure VoTeRaz(f:text;n:integer;s:string);   begin     writeln( Было: ); assign(f, Input.txt ); reset(f); while not(Eof(f)) do   begin     read(f,n);     write(n, );     if n 7 then n:=n*(n div 7);     s:=s+inttostr(n)+ ;   end; delete(s,length(s),1); close(f); assign(f, Input.txt ); rewrite(f); write(f,s); close(f); writeln; writeln( Стало: ); write(s); writeln; end; function VoTeDva(f:text;n:integer;s:string):integer;...

MOGZ ответил