Корректный ip адрес компьютера:1) 198.15.19.216
Пппппввллнлнн вот такие буквы
Выделяешь поля, из которых нужно вычислить средний бал, жмякаешь на выделенную синим цветом кнопочку и выбираешь СРЗНАЧ, жмякаешь ОК)
Program z1;
var a,b:integer;
begin
writeln('Введите 2 числа:');
readln(a,b);
if a<b then
write('Меньшее число:',a);
if b<a then
write('Меньшее число:',b);
end.
<em>var a, b, c, d, i, n :integer;</em>
<em>procedure swap (a, b :integer; c, d :integer);</em>
<em>begin</em>
<em> if a>b then begin c:=a; d:=a; end </em>
<em> else begin c:=b; d:=a; end;</em>
<em>end;</em>
<em>begin</em>
<em> read (a, b);</em>
<em> swap(a, b, a, b);</em>
<em> for i:=1 to a do if (a mod i=0) and (b mod i=0) then c:=i;</em>
<em> write (a*b/c);</em>
<span><em>end.</em></span>