Cоставить программу в паскале по подсчету кол-ва жильцов в доме случайным числом в диапазоне от 50 до 200 человек.(число домов 30).программу составить через массив.
Решение задачи 1 в файле Задача 2 если в классе 2 ученика, то после обмена будет 2 фотографии 2*(2-1)=2 если в классе 3 ученика, то всего будет 6 фотографий: 3*(3-1)=6 4 ученика 12 фотографий:4*(4-1)=12 х учеников по условию 600: х*(х-1)=600 откуда x^2-x-600=0 дискриминант 2401 х1=-24(не подходит) х2=25 ответ 25 По задаче 3 нет данных
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016 begin var n:=ReadInteger('n='); if n<0 then Writeln(n,'! не определено: n<0') else if n=0 then Writeln('0!=1') else begin var p:BigInteger:=1; for var i:=2 to n do p*=i; Writeln(n,'!=',p) end end.
Program zadacha;
Var a:array [1..100] of integer;
i,s:integer;
Begin
Randomize;
s:=0;
For i:=1 to 30 do begin
a[i]:=random(150)+50;
s:=s+a[i];
End;
Writeln(s);
End.