Оглавление
ЗАДАЧА 1 3
БЛОК-СХЕМА 3
ТЕКСТ ПРОГРАММЫ 3
ЗАДАЧА 2(А) 5
ТЕКСТ ПРОГРАММЫ 5
ЗАДАЧА 2(Б) 6
ТЕКСТ ПРОГРАММЫ 6
ЗАДАЧА 3 7
БЛОК-СХЕМА 7
ТЕКСТ ПРОГРАММЫ 7
ЗАДАЧА 4 9
БЛОК-СХЕМА 9
ТЕКСТ ПРОГРАММЫ 9
ЗАДАЧА 5 11
БЛОК-СХЕМА 11
ТЕКСТ ПРОГРАММЫ 11
Задача 1
Блок-схема
Текст программы
program z1;
var
x,y,z,t:real;
begin
writeln('Vvedite x:');
read(x);
writeln('Vvedite z:');
read(z);
if x*x+z*z>1 then
begin
t:=1+x*x+z*z;
end;
if x*x+z*z=-2) and (x