Главная arrow icon Вопросы arrow icon Учеба и наука arrow icon Информатика arrow icon Надо написать программу

Надо написать программу - вопрос №858565

Помогите пожалуйста. Задается последовательность целых чисел. Сколько чисел отличается от первого на 1? Написать программу на паскале без использования массивов.

Светлана
03.12.13
Учеба и наука / Информатика
1 ответ

Лучший ответ по мнению автора

Валентина

program pr;

uses crt;

var a,b:integer; k:integer;

p:char;

begin clrscr;

writeln('введите первое число');

readln(a); k:=0;

repeat

  writeln('введите следующее число');

  readln(b);

  if abs(b-a)=1 then k:=k+1;

  writeln('продолжить? (y/n)');

  readln(p);

until p='n';

writeln('k=',k);

readln

end. 

Программу проверила. Буду благодарна, если отметите  
03.12.13
Лучший ответ по мнению автора

Еva
Рейтинг: 121 998
6-й в Учебе и науке
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Похожие вопросы
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store
  • карты visa
  • карты master card
  • карты maestro
  • карты МИР
Мы используем файлы cookie. Пользуясь сайтом, вы принимаете условия нашего соглашения. Принять Детальнее