Дано три дійсних числа a, b, c. Якщо a-b>с, кожне число збільшується вдвічі, інакше Кожне число зменшується на одиню. Розробіть програму реалізації цього завдання.
// PascalABC.NET 3.2, сборка 1399 от 08.03.2017 // Внимание! Если программа не работает, обновите версию!
procedure Cheburek(s:string); begin var n:=ReadInteger('Количество строк в матрице:'); var m:=ReadInteger('Количество столбцов в массиве:'); Writeln('*** ',s,' матрица [',n,',',m,'] ***'); var a:=MatrRandom(n,m,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var s1:='сортированный вектор ср.значений нечетных столбцов'; Writeln(s1); a.Cols.Select(x->x.Average).Where((x,i)->i.IsEven).Sorted.Println; Writeln(s1.Length*'-'); end;
begin Cheburek('первая'); Cheburek('вторая'); end.
Пример Количество строк в матрице: 4 Количество столбцов в массиве: 8 *** первая матрица [4,8] *** 98 -64 -30 84 -6 11 4 7 -45 23 55 47 67 87 70 -64 40 20 91 -27 -12 42 -49 10 -59 -79 5 -77 -59 -44 -4 -10
var a,b,c:integer;
begin
read(a,b,c);
if a-b > c then begin
a:=a*2;
b:=b*2;
c:=c*2
end
else
begin
dec(a,1);
dec(b,1);
dec(c,1);
end;
writeln(a,' ',b,' ',c);
end.
*dec функция уменьшающая число n на i