Программа выполнена в pascalabc.net program aik; var x,y: integer; z: real; begin writeln('введите значение х: '); read(x); writeln('введите значение у: '); read(y); if (y+3)> 0 then begin z: =x/sqrt(y+3); writeln('ответ: ', z); end else begin writeln('ошибка'); end; end.
Спасибо
Ответ дал: Гость
varn: integer; beginreadln(n); n: = n div 10; n: =(n div 100)*10 +n mod 10; writeln(n); n: = (n mod 10)*100+ ((n mod 100) div 10)*10+ n div 100; writeln(n); end.
Популярные вопросы