ЦИКЛ автор Тарасова Инга
Циклы- это такая организация действий при которой одна и та же последовательность действий совершается несколько раз,до тех пор пока выполняется некоторое условие алг нач пока нц К1; К2; кц. кон. пока условие К1 К2 да нет
Запись на паскале Program ; var (real) (integer); begin K1; K2; while do end; writeln; end.
Задача по теме Разделим N нацело и на 5 и получим K- максимальное значение для у(0<=y<=k). Организуем цикл по переменой у, и будем рассматривать значение разности N-5y. Если это число делится нацело на 3, то полученное частное и есть соответствующее значение х. var x,y,n,k: integer; begin writeln( введите N); read (n); k:=n div 5 ; for y:=0 to k do if (N-5*y) mod 3=0 then begin x:=(N-5*y) div 3; writeln(x=,x, y=,y); end; end.