X = 5
y = 7
t = x = 5
x = y mod x = 7 mod 5 = 2
y = t = 5
Ответ: 1) x = 2; y = 5; t = 5
Program Division;
var a, b, c, d, m, n, : integer
begin
readln (a, b, c. d);
m:=a*d;
n:=b*c;
write (m, n)
end
const n=10;
var a:array [1..n] of integer;
i,k:integer;
begin
for i:=1 to n do
begin
a[i]:=random (10);
if a[i] mod 2 = 0 then k:=k+1;
write (a[i],' ')
end;
writeln;
writeln (k)
end.
Чтобы поставить пять пробелов подряд,достаточно 5 рас нажать клавишу
Program Project1;
var a, P, S, d :real;
begin
readln(d); a:= d/sqrt(2); S:= sqr(a); P:= 4*a; writeln('Сторона: ',a); writeln('Площадь: ',S); writeln('Периметр: ',P);
end.<span>
</span>