Учеба и наука
Решено
Надо написать программу - вопрос №858565
Помогите пожалуйста. Задается последовательность целых чисел. Сколько чисел отличается от первого на 1? Написать программу на паскале без использования массивов.
декабрь 3, 2013 г.
-
Всего ответов: 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.
Программу проверила. Буду благодарна, если отметите
Лучший ответ по мнению автора
Похожие вопросы
Решено
В некоторой стране автомобильный номер длиной 6 символов составляется из заглавных букв
сентябрь 19, 2013 г.