Определить значение переменной n после выполнения фрагмента алгоритма а) n:=0; нц для k от 1 до 1000 | если mod(k, 30) =1 или mod(k, 5) =2 | | то n:=n+1 | все кц б) n:=0; нц для k от 1 до 1000 | если не div(k, 3) =1 и не mod(k,...
Определить значение переменной n после выполнения фрагмента алгоритма
а) n:=0;
нц для k от 1 до 1000
| если mod(k, 30) =1 или mod(k, 5) =2
| | то n:=n+1
| все
кц б) n:=0;
нц для k от 1 до 1000
| если не div(k, 3) =1 и не mod(k, 5) =2
| | то n:=n+1
| все
кц
Гость
Ответ(ы) на вопрос:
Гостьа)
var n,k:integer;
begin
for k:=1 to 1000 do
if (k mod 30=1) or (k mod 5=2)
then n:=n+1;
Writeln(n);
readln;
end.
б)
var n,k:integer;
begin
for k:=1 to 1000 do
if (k div 3<>1) and (k mod 5<>2)
then n:=n+1;
Writeln(n);
readln;
end.
Ответы по завершению работы программ: а) n=234 , б)n=797
Не нашли ответ?
Похожие вопросы