Var x, y, i, c, s: integer;
begin
readln(x, y);
if (x < y) then
begin
for i := x to y do
begin
c := c + 1;
s := s + i;
end;
writeln('S = ', s, ' C = ', c);
end;
<span>end.
2)
const N = 10;
var a, c: array [0..N] of integer;
i: integer;
begin
for i := 0 to N do
a[i] := random(50);
for i := 0 to N do
begin
if (a[i] mod 2 = 0) then
c[i] := a[i] * a[i]
else
c[i] := 2 * a[i] * i;
end;
{Вывод массива, это для проверки, не обязательно, но если хотите...}
for i := 0 to N do
writeln('[', i, '] => ', c[i]);
<span>end.
<em>Учителям информатики очень лень говорить домашку х)</em></span></span>
В целом задача сформулироване не корректно.
В первом случае неопределённость = 1/3 т.к существует всего 3 варианта решения.
В случае оценки вероятностей то 30\%/30\%/40\%
Раскладываем 0.3 - вероятность того, что этот дом деревянный, 0.4 - вероятность, что из кирпича, 0.3
Function min(a: array of integer): integer;
var i, m: integer;
begin
for i := 0 to length(a) do
if (a[i] < m) then m := a[i];
result := m;
<span>end;
Вот, в теории должно работать, но проверить, извините, не могу, PascalABC не поддерживает передачу массивов><</span>
1) 360/60 = 6
6 угольник должен получиться, но программа повториться всего 5 раз, поэтому получится ломаная
2) 360/120 = 3
Треугольник получится (так как 3 угла)
Ответ: 1 - 4) 2 - 4)
Ответ должен иметь 20. символов