Блок схему пж
program pr1;
var a,b,c:byte;
begin
writeln('Введите a,b,c');
readln(a,b,c);
if a>b then begin a:=a+b; b:=a-b; a:=a-b;end;
if b>c then begin b:=b+c; c:=b-c; b:=b-c;end;
if a>b then begin a:=a+b; b:=a-b; a:=a-b;end;
writeln('a=',a,' b=',b,' c=',c);
end.
4 комментария:
а программа верно написана?
if a>b then begin a:=a+b; b:=a-b; a:=a-b;end; повторяется два раза
ой я там лишнюю добавил спасибо что заметил
перепиши программу - и я добавлю блок схему
а программа верно написана?
if a>b then begin a:=a+b; b:=a-b; a:=a-b;end; повторяется два раза
ой я там лишнюю добавил спасибо что заметил
перепиши программу - и я добавлю блок схему Ответы
Гость Вот держи !!!!!!!!!!!!!!!!!!!!!!!!!
Нет комментариев
Список предметов
