Program Evklid;
var M,N : integer;
begin
writeln (`Введите M и N`);
readln (M , N);
while M<>N do
begin
if M>N
then M:=M-N
else N:=N-M
end;
write (`нод =`,M);
end.
На бумагу
на лист
на что то плоское и легкое
вот фото - на нем четко изображен ,, робот садовник,,
Сначала идет протокол, затем знаки :// , затем сервер, затем разделитель /, затем имя файла.
" http + :// + www. + <span>ftp +</span> .ru + / + index + <span>.html "
</span>Ответ: ЕЗБГДВЖА
var i, n: integer;
begin
read(n);
for i:=1 to 10 do
writeln(n,'*',i,'=',n*i);
end.