Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var x,y,nod,nok: longint;
begin
read(x,y);
a: =x; b: =y;
while (a> 0) and (b> 0) do
if a> b then a: =a mod b
else b: =b mod a;
nod: =a+b;
nok: =(x div nod)*y;
write(nok);
end;
в пятиричной системе каждый следйющий разряд учеличивает число в 5 раз. раз приписали два разряда, получаем: 5 * 5 = 25
число увеличилось в 25 раз.
например, число 12 в пятиричной системе равно числу 7 у десятичной.
привисываем два нуля: 1200 в пятеричной равно числу 175 в десятичной.
175 : 7 = 25.
program xxx;
var i : integer;
a : array[1..15] of real; n : real; begin randomize; for i: =1 to 15 do a[i]: =random(20)-20;
writeln('исходный массив а: ');
for i: =1 to 15 do
write(a[i]);
n: =a[1];
a[1]: =a[15];
a[15]: =n;
writeln('полученный массив а: ');
readln
end.
var i, n : integer;
s : real;
a : array [1..20] of real;
writeln('введите размерность массива n=');
readln(n);
write('введите элементы массива а: ');
for i: =1 to n do
readln(a[i]);
writeln(a[i]);
s: =0;
if a[i]> 0 then s: =s+a[i];
writeln('сумма положительных элементов =', s);
Популярные вопросы