
Datius
5 год назад
КТО-НИБУДЬ HELP.ЕСТЬ ТАКИЕ КТО СПОСОБЕН???!!!.....(блок схему в программу pascal пожааалуйста (номер 2)

ОТВЕТЫ

Nikon
Oct 24, 2020
var a,b,c,d:integer;
begin
readln(a,b,c);
if a<c then d:=a;
if b<c then a:=b;
d:=d+a;
write(d);
end.
begin
readln(a,b,c);
if a<c then d:=a;
if b<c then a:=b;
d:=d+a;
write(d);
end.
464
Смежные вопросы: