program p2;
var x,y,z,a,b:real;
begin
write('x=');
readln(x);
write('y=');
readln(y);
write('z=');
readln(z);
if x<=z then a:=5*arctan(z)
else b:=(3*(x-y))/(sqr(z)+sqr(x));
writeln('A=',a);
writeln('B=',b);
readln
end.
Программа p2; Описание переменных x,y,z,a, переменный вещественного типа; Раздел операторов Вывод данных на экран х=; Ввод данных на экран; Вывод данных на экран y=; Ввод данных на экран; Вывод данных на экран z=; Ввод данных на экран; если х<=z то a:=5*arctan(z) иначе b:=(3*(x-y))/(sqr(z)+sqr(x)); Вывод данных А; Вывод данных В; ввод данных конец.
Программа p2;
ОтветитьУдалитьОписание переменных x,y,z,a, переменный вещественного типа;
Раздел операторов
Вывод данных на экран х=;
Ввод данных на экран;
Вывод данных на экран y=;
Ввод данных на экран;
Вывод данных на экран z=;
Ввод данных на экран;
если х<=z то a:=5*arctan(z)
иначе b:=(3*(x-y))/(sqr(z)+sqr(x));
Вывод данных А;
Вывод данных В;
ввод данных
конец.