daikazo D daikazo Регистрация 25 Фев 2013 Сообщения 114 Репутация 0 Спасибо 0 Монет 0 14 Окт 2016 #1 Помогите со 2 и 3! //otvet.imgsmail.ru/download/230254881_ec94172ff45a172da9e4c934afc71c62_800.jpg
danil1974777 D danil1974777 Регистрация 21 Апр 2013 Сообщения 106 Репутация 0 Спасибо 0 Монет 0 14 Окт 2016 #2 Func Res(a:integer,x:Integer,b:Integer,y:Integer):Integer; Var result:Integer; result = a*x + b*y; return(result); end; Позитивный голос 0
Func Res(a:integer,x:Integer,b:Integer,y:Integer):Integer; Var result:Integer; result = a*x + b*y; return(result); end;
maksio M maksio Регистрация 19 Дек 2013 Сообщения 99 Репутация 0 Спасибо 0 Монет 0 14 Окт 2016 #3 var a, b: integer; begin ReadLn(a, b); swap(a, b); WriteLn(a, #32, b); end. Позитивный голос 0