Составьте блок-схему и программу для решения следующей задачи. Введите с клавиатуры два...

Question

Составьте блок-схему и программу для решения следующей задачи. Введите с клавиатуры два числа: к и л. Если они положительны, то замените каждое на квадрат их суммы и выведите результаты на экран. Если все числа отрицательны, то каждое сделайте равным наименьшему и выведите результаты. Иначе, К приравняйте к 10, а Л - к 15 и выведите результаты

Answer 1

procedure Algorithm;

var к,л: integer;

begin

Readln(к,л);

if к>0 and л>0 then

к := (к+л)^2;

л := к;

else

if к<0 and л<0 then</p>

if к<л then</p>

л := к;

else

к := л;

else

к := 10;

л := 15;

end.

 

 

Answer 2

блок схема во вложении, надо перерисовать аккуратнее, вот сама задача на паскале:

 

соственно код, протестирован на паскале:

program znz;
uses crt;
var k,l, kvsum:real;
begin
clrscr;
write('Input l:');
readln(l);
write('Input k:');
readln(k);
if(k>0) and (l>0) then
begin
kvsum:=k*k+l*l;
k:=kvsum;
l:=kvsum;
end
else
begin
if(k<0) and (l<0) then<br> begin
if(k end
else
begin
k:=10;
l:=15;
end;
end;
writeln('k=',k:0:2);
writeln('l=',l:0:2);
readln;
end.

---