begin
var P := ReadArrInteger('Пол (0-жен, 1-муж) - 8 значений:', 8);
var S := ReadArrInteger('0-холост, 1-женат (8 значений):', 8);
var (k10, k00) := (0, 0);
for var i := 0 to 7 do
if (P[i] = 1) and (S[i] = 0) then
Inc(k10)
else if (P[i] = 0) and (S[i] = 0) then
Inc(k00);
Println('Холостых мужчин:', k10);
Println('Незамужних женщин:', k00)
end.
Var
x, y: real;
begin
readln(x, y);
writeln('B = ', (tan(x) + cos(x - ln(y))) / x / x);
end.
если правильно поняла формулу
Program gt;
var i,j:integer;
begin
for i:=1 to 9 do
for j:=1 to 9 do
if((i*10+j)mod(i*j)=0)then writeln(i,j);
<span>end.
2)
program gt;
var a,b,c,k:integer;
begin
k:=0;
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if(a=3*c)then k:=k+1;
writeln(k);
<span>end.</span></span>
Вот задачка написана в среде Pascal.ABC.NET
В Youtube есть видео с названием <span>"Практична робота № 5. Комп’ютерне моделювання (друга частина в середовищі розробки Lazarus)". Практическое решение этой задачи</span>