Составить алгоритм блок схему и программу для решения ввести число если оно положительное разделить на 4 если отрицательное или равно нулю умножить на 5
Ох, ну блок-схема вот: в ромбе: n>0, далее + и в прямоугольнике n:= div 4, или n<=0, в прямоугольнике n:=n*5, далее конец var n:integer; read(n); write('напишите n'); begin if n>0 then n:=n div 4 else n:=n*5; read(n); end; end. Могла с составлением программы ошибиться.
Var {вводим точки, записываем в переменную max расстояние до первой точки, а в переменную max2 - номер точки. Если расстояние до следующей точки меньше, чем до первой точки, то сохраняем новые значения в max и max2} x1,y1,x2,y2,x3,y3,max,max2:real; begin readln(x1,y1,x2,y2,x3,y3); max:=sqrt(sqr(x1)+sqr(y1)); max2:=1; if sqrt(sqr(x2)+sqr(y2))<=max then begin max:=sqrt(sqr(x2)+sqr(y2)); max2:=2; end; if sqrt(sqr(x3)+sqr(y3))<=max then begin max:=sqrt(sqr(x3)+sqr(y3)); max2:=3; end; writeln(max,' ',max2); end.
function SumDig(a: Vector): integer; var i, m, d, s, max: integer; begin s := 0; for i := 1 to n do begin m := a[i]; max := -1; repeat d := (m mod 10); if max < d then max := d; m := m div 10 until m = 0; s := s + max end; SumDig := s end;
var i: integer; M: Vector;
begin Writeln('Введите ', n, ' чисел:'); for i := 1 to n do Read(M[i]); Writeln('Сумма максимальных цифр всех чисел равна ', SumDig(M)) end.
Тестовое решение: Введите 10 чисел: 613 269 839 10 575 569 812 56 401 616 Сумма максимальных цифр всех чисел равна 65
var
n:integer;
read(n);
write('напишите n');
begin
if n>0 then
n:=n div 4
else
n:=n*5;
read(n);
end;
end.
Могла с составлением программы ошибиться.