Ответ:
program HelloWorld;
var x,y : integer;
begin
x:=15;
y:=12;
while (x<>y) do
begin
if x > y then x:=x-y
else y:=y-x;
end;
if(x=y)then writeln(x);
end.
я не понял откуда появилась переменная V , так что счел это за опечатку.
Объяснение:
Program n1;
var F: array[1..14] of integer;
i,k: integer;
begin
randomize;
write('массив: ');
for i:=1 to 14 do begin
F[i]:=random(23)-11;
write(F[i],' ');
end;
writeln;
k:=0;
for i:=1 to 14 do if F[i] mod 5=0 then k:=k+1;
write('кол-во эл. крат. 5: ',k);
end.
10100110100111001 <span> в двоичной
</span>246471 <span>восьмеричной
</span>14D39 <span>шестнадцатеричной</span>
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var s100:=Arr('','сто','двести','триста','четыреста','пятьсот',
'шестьсот','семьсот','восемьсот','девятьсот');
var s10:=Arr('','десять','двадцать','тридцать','сорок','пятьдесят',
'шестьдесят','семьдесят','восемьдесят','девяносто');
var s11:=Arr('','одиннадцать','двенадцать','тринадцать','четырнадцать',
'пятнадцать','шестнадцать','семнадцать','восемнадцать',
'девятнадцать');
var s1:=Arr('','один','два','три','четыре','пять','шесть',
'семь','восемь','девять');
var n:=ReadInteger('Укажите трехзначное натуральное число');
var s:=s100[n div 100];
var n10:=(n div 10) mod 10;
var n1:=n mod 10;
case n10 of
0:if n1>0 then s:=s+' '+s1[n1];
1:if n1=0 then s:=s+' '+s10[1]
else s:=s+' '+s11[n1];
else begin
s:=s+' '+s10[n10];
if n1>0 then s:=s+' '+s1[n1]
end
end;
Writeln(s)
end.
1 бит = 0,000125 килобайт.
Программа против вирусов - <span>антивирусная программа. Именно такие программы позволяют защитить компьютер от атак вирусов.</span>