<em>6</em><em>3</em><em>0</em><em /><em>:</em><em /><em>у</em><em /><em>=</em><em /><em>9</em><em>0</em>
<em>у</em><em /><em>=</em><em /><em>6</em><em>3</em><em>0</em><em /><em>:</em><em /><em>9</em><em>0</em>
<em>у</em><em /><em>=</em><em /><em>7</em>
<h3>
<em>про</em><em>верка</em><em>:</em></h3>
<em>6</em><em>3</em><em>0</em><em /><em>:</em><em /><em>7</em><em /><em>=</em><em /><em>9</em><em>0</em>
<em>9</em><em>0</em><em /><em>=</em><em /><em>9</em><em>0</em>
Vara,b,z,x:integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите третье число равное первому');
readln(z);
a:=1;
while a<=z do
begin
x:=x+b;
a:=a+1;
end;
writeln('произведение равно = ',x)
<span> end.</span>
вот как я понял что требуется если есть вопросыы по проге задавай
Матричные, струйные и лазерные.
Var a, b, c, d, i : integer;
Begin
read(a);
read(b);
read(c);
read(d);
for i := a to b do
if (i mod c = d) then
writeln(i);
writeln();
for i := a to b do
if frac(sqrt(i)) = 0 then
writeln(i);
writeln();
for i := 2 to a-1 do
if a mod i = 0 then begin
writeln(i);
exit;
end;
End.