Паскаль. Составьте блок схему и программы для нахождения суммы всех натуральных двузначных чисел кратных 10
Answers & Comments
mihateren12
Программа: var x,i,sum:integer;beginx:=10;sum:=0;for i:=1 to 90 do //90 двухзначных чисел всего begin if x mod 10 = 0 then begin sum:=sum+x; end; x:=x+1; end; writeln(sum);end.
Answers & Comments
var x,i,sum:integer;beginx:=10;sum:=0;for i:=1 to 90 do //90 двухзначных чисел всего begin if x mod 10 = 0 then begin sum:=sum+x; end; x:=x+1; end; writeln(sum);end.