Змінна Z дробове число. Перевірити, якщо число більше або рівне 3.3, то відняти від нього 0.5, якщо менше, то помножити на 2.

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;

64*48*12*8=294,912- обьем в байтах 1 стр

var

i: integer;

s: real;

m: array[1..2,1..6] of real;

begin

s: =0;

for i: =1 to 6 do

begin

readln(m[1,i]);

readln(m[2,i]);

s: =s+3.14*m[1,i]*m[1,i]*m[2,i]*1200;

end;

writeln(s);

end.

1. записать числа встолбик, так чтобы цифры самого младшего разряда чисел (единицы) расположились одна под другой (на одной вертикали).

2. вычесть цифры младшего разряда. примечание - если вычитаемое больше уменьшаемого, то следует занять единицу из старшего разряда и после этого вычесть.

3. записать результат под горизонтальной чертой на вертикали единиц.

4. повторить пункты 2 и 3 для всех разрядов с учетом переносов из старших разрядов.