Создать подпрограмму minmax(a,b), записывающую в переменную a минимальное из значений a и b, а в переменную b - максимальное из этих значен язык pascal
procedure Minmax(var a, b: integer); var min, max: integer; begin if a < b then min := a else min := b; if a > b then max := a else max := b; a := min; b := max; end;
1: Ну-с, три раза циклом идем начиная с 1 до 3 и получается следующее: Идем первый раз: S:=1+1*1 в результате S = 2; Идем второй раз: S:=2+2*2 в результате S = 6; Идем третий раз: S:=6+3*3 в результате S = 15; ответ: S = 15; 2: В результате выполнения программы будет выведены 6 чисел которые получились в результате вычисления s:=s+2*j; Т.е. как и в предыдущем задание (1) идем циклом с 10 до 15 и считаем, а после сразу выводим. S:= 0 + 2*10; S=20; S:= 20 + 2*11; S=42; S:= 42 + 2*12; S=66; S:= 66+2*13; S=92; S:=92+2*14; S= 120; S:=120 + 2*15; S=150; 3: крч все тоже самое цикл и т.д. ответ: 5 20 60 120 120
var sum, i: integer; begin sum := 0; for i := 1 to 100 do sum := sum + i; writeln('Сумма всех чисел от 1 до 100: ', sum); end.
№2
var p, i: integer; begin p := 1; for i := 1 to 10 do p := p * i; writeln('Произведение всех чисел от 1 до 10: ', p); end.
№3
У вас не дано никаких условий. Вот задача для условия: "Членов прогрессии - 100, шаг - 3"
var A, i, k, max: integer; begin i := 3; max := 100; for k := 1 to max do begin A := A + i;write( A, ' '); end; end.
№4
var sum, x: real; a: array[1..10] of real; i: integer; begin sum := 0; for i := 1 to 10 do begin write('Введите ', i, ' число: '); readln(a[i]); sum := sum + a[i]; end;
var min, max: integer;
begin
if a < b then min := a else min := b;
if a > b then max := a else max := b;
a := min;
b := max;
end;