Нормально? Нужно создать программу с логическим циклом. Program p_1; Uses crt; Var i:integer; Begin Clrscr; i:=1; While i>100
Нормально? Нужно создать программу с логическим циклом. Program p_1; Uses crt; Var i:integer; Begin Clrscr; i:=1; While i>1000 do begin Write(i); i:=i+(sqr(2+3)); end; readln; end.
Все еще проще можно написать 1. Program chislo; var i,s:Integer; begin i:=100; while i<=999 do begin if (i mod 2 <> 0) then s:=s+i; Inc(i); end; Writeln(s); end.
2. Число в обратном порядке (ввод с клавиатуры)
Program sum_3; var n,s:Integer; begin Read(n); while(n>0) do begin s:=n mod 10; n:=n div 10; Write(s); end; end.