Блок схему пж program pr1;var a,b,c:byte;begin writeln(039;Введите a,b,c039;);

Блок схему пж
program pr1;
var a,b,c:byte;
begin
writeln('Введите a,b,c');
readln(a,b,c);
if agt;b then begin a:=a+b; b:=a-b; a:=a-b;end;
if bgt;c then begin b:=b+c; c:=b-c; b:=b-c;end;
if agt;b then begin a:=a+b; b:=a-b; a:=a-b;end;
writeln('a=',a,' b=',b,' c=',c);
end.

Вячеслав Сяинов 2019-04-08 07:09:04

а программка правильно написана?

Илюмназаров Ванек 2019-04-08 07:13:22

if a>b then begin a:=a+b; b:=a-b; a:=a-b;end; повторяется два раза

Михон Осташов 2019-04-08 07:15:58

ой я там излишнюю добавил спасибо что заметил

Лариса Цепке 2019-04-08 07:16:54

перепиши программку - и я добавлю блок схему