Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
8 дней назад

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

учитель информатики

Россия МБОУ «Сиверская гимназия»

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


Категории по интересам: Информатика
Инфоурок / Сайты учителей / Чепикова Екатерина Александровна

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.

Идёт приём заявок на самые массовые международные олимпиады проекта "Инфоурок"

Для учителей мы подготовили самые привлекательные условия в русскоязычном интернете:

1. Бесплатные наградные документы с указанием данных образовательной Лицензии и Свидeтельства СМИ;
2. Призовой фонд 1.500.000 рублей для самых активных учителей;
3. До 100 рублей за одного ученика остаётся у учителя (при орг.взносе 150 рублей);
4. Бесплатные путёвки в Турцию (на двоих, всё включено) - розыгрыш среди активных учителей;
5. Бесплатная подписка на месяц на видеоуроки от "Инфоурок" - активным учителям;
6. Благодарность учителю будет выслана на адрес руководителя школы.

Подайте заявку на олимпиаду сейчас - https://infourok.ru/konkurs

  • 5 материалов

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх