<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadString.Matches('\d').Count.Println
end.
<u>Пример</u>
Сегодня 10.02.2018г., время 23:32
12
1. BMP - растровый формат графических изображений.
2. GIF - растровый формат графических изображений.
4. JPEG - растровый формат графических изображений.
7. WMF - формат векторных графических файлов.
8. EPS - векторных графический формат файлов, используемых в Adobe Illustrator.
Var
a, b, alpha: <em>real;</em>
begin
writeln(<em>'Введите длины сторон и величину угла'</em>);
readln(a, b, alpha);
alpha := 0.5 * a * b * sin(alpha * pi / 180);
writeln(<em>'Площадь треугольника равна '</em> + alpha);
<span>end.</span>
Вообще это больше математика
х - входные данные
у - выходные данные
y = f(x)
немного помучившись с более простыми вариантами, предполагаем что наша функция линейна
y = f(x) = ax+b
потому решаем систему для первых двух пар
15 = 2a+b
27 = 4а+b
получаем a = 6, b=3 f(x) = 6x+3
f(10) = 6*10+3 = 63 - ура, подошло для третей пары, значит это верный ответ
Ответ y = 6x+3
Var a,b: array [0..100] of integer;
i, j, s,k,max: integer;
begin
FOR I:= 1 TO 5 do begin
FOR J:=1 TO 20 do begin
k:=k +1;
(A[k]):= random(90)+78;
write((A[k]:4));
if max < a[k] then begin max:=a[k];s:=k; end;
END;
write('A[' + s +'] =':8, max:4 );B[s]:=max;
writeln;
s:=0;max:=0;
END;
writeln;k:=0;
FOR I:= 1 TO 5 do begin
FOR J:=1 TO 20 do begin
k:=k +1;
if b[k] > 0 then (b[k]):= random(90)+78; //забег номеров победителей
if max < b[k] then begin max:=b[k];s:=k; end; //победитель среди
победителей
write((b[k]:4));
END;
writeln;
END;
write('A[' + s +'] =':8, max:4 );
end.
только мало что осталось от той программы много
ошибок Главная n нельзя в константы она не будет делиться и т.д.
