Чепикова Екатерина Александровна

  • учитель информатики
  • МБОУ «Сиверская гимназия»
  • Россия
  • 24.05.1992

Категории по интересам:

program Project1; {$APPTYPE CONSOLE} uses SysUtils; var x, xmin, xmax: integer; n, rez: integer; label L1; begin Write('Wedi X: '); ReadLN(x); xmin:= x; xmax:= x; for n := 1 to 1000 do begin L1: Write('Wedi X: '); ReadLN(x); if abs(x) > 3000 then begin Writeln('Input ERROR!'); goto L1; end; if x = 0 then break; if x < xmin then xmin:= x; if x > xmax then xmax:= x; end; rez:= xmax - xmin; Writeln('Rezultat = ',rez); readln; end.

В друзьях у автора: 0

Автор в друзьях: 0

  • Материалы: 5
  • Просмотры: 2895
  • Коментарии автора: 0
  • Коментарии автору: 0