Ответ:
Исходник ниже
Объяснение:
program task;
var
x, sum: Integer;
begin
sum := 0;
while True do
begin
read(x);
if x = 0 then break;
if (x mod 3 = 0) and (x mod 10 = 4)
then sum := sum + x;
end;
writeln(sum);
end.
Var x,y,a,b:integer;
begin
write('x, y:');
readln(x,y);
if (x>0)and(y>0) then
begin
a:=x; b:=y;
while a<>b do
if a>b then a:=a-b else b:=b-a;
writeln('НОД(',x,',',y,') = ',a);
end
else writeln('Ошибка ввода');
end.
Пример:
<span>x, y:
50 125
НОД(50,125) = 25</span>
<span>обь заходит в расширение и пропускает мир и енисей, затем обь продолжает свое плавание, а мир и енисей поднявшись вверх пропускают в расширение канала восток. после чего мир и енисей продолжают своё плавание восток - своё.</span>
Один байт = один символ
N символов = N байт