Var a,b,c,p,s:real; m:integer; begin repeat writeln('a,b,c &'); readln(a,b,c); {Вводим стороны до тех пор пока не выполнится условие сущ треуг} until (a<b+c)and(b<a+c)and(c<a+b); writeln('площадь - введите 1 или периметр -2 ?'); {выбираем что считать, если площадь, то вводим 1, периметр - 2} readln(m); case m of 1: begin p:=(a+b+c)/2; writeln('S = ',sqrt(p*(p-a)*(p-b)*(p-c))); {вывод площади} end; 2:writeln(a+b+c); {вывод периметра} end; end. программа 2 Нахождение суммы элементов одномерного массива const n=10; Var a:array[1..n]of integer; i,s:integer; begin for i:=1 to n do begin a[i]:=random(100); {заполнение массива случайными числами [0.100)} write(a[i]:4); {выводим на экран массив} s:=s+a[i]; {считаем сумму} end; writeln; writeln('S= ',s); {выводим сумму} end.
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;
до этогота компания производила игрушки