Поделитесь своими знаниями, ответьте на вопрос:
сделать надо в кумире.Робот-гидролог занимается исследованием водоёмов.Водоем - это поле прямоугольной формы, ограниченное снаружи линиями.На водоёме есть волны-горизонтальные линии неизвестной длины.Волны не примыкают к берегу.роботу нужно определить максимальный размер волны(длину количество клеток) и вывести это значение.Исходное положение робота гидролога левый верхний угол.Алгоритм должен решать задачу для водоёма произвольного размера при исполнении робот не должен разрушиться конечное расположение робота произвольное пример водоёма на рисунке
ответ:
. в нужно вывести все составные числа из промежутка [2; n]. код программы:
program lab3;
var i,n,j,s,l: integer;
m: real;
begin
readln (n);
for i: =2 to n do
begin
s: =trunc (sqrt (i));
for l: =2 to s do
begin
m: = i mod l;
if m=0 then
write (' ',i);
end;
end;
end.
но проблема - как только s становится больше 2, составные числа начинают несколько раз повторятся, т.к., например 12 делится и на 2 и на 3. вопрос: как мне сделать выход из цикла после первого успешного деления?
var
i, n, j, s, l: integer;
m: real;
begin
readln(n);
for i : = 2 to n do
begin
s : = trunc(sqrt(i));
for l : = 2 to s do
begin
m : = i mod l;
if m = 0 then
begin
write(' ', i);
break;