Полная версия: Помогите решить цикл
помогите решить пожалуйста. скрин ниже.
"Помогите" - значит ты тоже что-то делаешь. Покажи наработки и скажи в чём остановка.
Цитата(Федосеев Павел @ 20.02.2015 10:33) 
"Помогите" - значит ты тоже что-то делаешь. Покажи наработки и скажи в чём остановка.
Спасибо что помогли, уже не надо. Сделал уже
Var l: integer, n: integer, o: integer, d: integer, x: integer;
begin
repeat write('Введите кол-во перемножаемых чисел:'); readln(n);
until ((n >= 5) AND (n <= 10));
while x <> n do
write('Введите два числа
readl(o); readl(d);
l:=d*o;
write(l);
x:=x+1;
end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.