Определите, что будет напечатано в результате работы следующей программы var s,k: integer; begin s: =100 for k: = 2 to 7 do s: =s -10 write (s) end. как это нужно делать?
Программа выполняется 7-2+1= 6 раз. За каждый проход от s отнимается 10, значит мы 6*10=60 - это число, которое будет вычтено из s. s=100-60=40. ответ: 40
Var N,A:integer; S:real; Begin S:=0; Write('N = ');ReadLn(N); For N:= 1 to N do Begin Read(A); if (A mod 5 = 0)and(A mod 10 < 0) then S:=S+A; End; WriteLn('S = ',S); End.
Пример работы программы:
N = 5 -5 10 15 -25 17 S = -30
Вторая программа:
Var A,N,k:integer; Begin k:=0; Write('N = ');ReadLn(N); For N:= 1 to N do Begin Read(A); A:=Abs(A); if (A mod 3 = 0)and((A mod 10 = 6)or(A mod 10 = 9)) then k:=k+1 End; WriteLn('k = ',k); End.
За каждый проход от s отнимается 10, значит мы 6*10=60 - это число, которое будет вычтено из s.
s=100-60=40.
ответ: 40