Question

Помогите по программированию.Составьте программу по этой блок схеме.Очень срочно.Например:
program z1;
var x,y:real;
begin
writeln('введите два числа');
read(x);
if x>0 then y:=SQRT(x)
writeln('y=',y);
end.

Answer 1

Помог бы, но чисел не вижу.

Answer 2

ща кину

Answer 3

http://znanija.com/task/21169812

Answer 4

перейди

Answer 5

там лучше видно

Answer 6

program zada4a;
var  a, b, c: integer;  s, k, y: real;
begin  read(a, b, c);  s := 4 * ((sqrt(a + b * b)) / 3 + c);  k := sqrt(abs(a * b + c)) - 2 * (s * s);  y := s * k + ((s * (sqrt(-k)) / b * c));  write(y)end.

Answer 7

Снова не так кинул :(

Answer 8

Кароч, пойдет :D

Answer 9

спасибо большое