Program num; uses crt; var x,i,n:integer; pr,l:longint; begin textcolor(11); randomize; x:=random(1000,100000); writeln('Всего деньжат ', x); writeln('Впишите числа которые получились выше: '); readln(i); n:=i div 3; //или так i:=i div 3; writeln(n); // writeln(i); pr:=1; for l:=10 to n do // for l:=10 to i do pr:=pr*l; writeln('Нулей', pr); readln(); end.
// PascalABC.NET 3.2, сборка 1389 от 01.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var xa,ya,xb,yb,xc,yc:real; Write('Введите координаты точки А: '); Read(xa,ya); Write('Введите координаты точки B: '); Read(xb,yb); Write('Введите координаты точки C: '); Read(xc,yc); var xd:=(xb+xc)/2; var yd:=(yb+yc)/2; var ma:=sqrt(sqr(xd-xa)+sqr(yd-ya)); Writeln('ma=',ma:0:5); var AB:=sqrt(sqr(xb-xa)+sqr(yb-ya)); var AC:=sqrt(sqr(xc-xa)+sqr(yc-ya)); var BC:=sqrt(sqr(xc-xb)+sqr(yc-yb)); var Wb:=sqrt(AB*BC*(sqr(AB+BC)-AC*AC))/(AB+BC); Writeln('Wb=',Wb:0:5) end.
Результат Введите координаты точки А: 0 0 Введите координаты точки B: 2 1 Введите координаты точки C: -2 3 ma=2.00000 Wb=2.66667
var a: array [1..250, 1..250] of integer; // матрица с числами.n, m, i, j: integer; function prime(a: integer):boolean; //Проверка на простоту.vari: integer;f: boolean;begin for i := 2 to trunc(sqrt(a)) do if (a mod i = 0) then begin f := true; break; end;prime := f;end;beginreadln(n, m); // Ввод размера матрицы.for i := 1 to n dobeginfor j := 1 to m doread(a[i][j]);readln;end;for i := 1 to m do for j := 1 to n do if (not prime(a[j][i])) then begin inc(a[n + 1][i]); inc(a[n + 2][i], a[j][i]); end;for i := 1 to m do writeln(a[n + 1][i],' ',a[n + 2][i]); // Вывод суммы и кол - ваreadln;end.
uses crt;
var x,i,n:integer;
pr,l:longint;
begin
textcolor(11);
randomize;
x:=random(1000,100000);
writeln('Всего деньжат ', x);
writeln('Впишите числа которые получились выше: ');
readln(i);
n:=i div 3; //или так i:=i div 3;
writeln(n); // writeln(i);
pr:=1;
for l:=10 to n do // for l:=10 to i do
pr:=pr*l;
writeln('Нулей', pr);
readln();
end.