Задается последовательность целых чисел. Сколько чисел отличается от первого на 1 ?Написать программу на паскале без использования массивов
Answers & Comments
kastys
Uses crt; var n, a, b, k:integer; begin k:=0; writeln ('Сколько цифр будет в строке?'); read (n); writeln ('Вводите числа, после каждого ENTER.'); read (b); for n:=1 to n-1 do begin read (a); if a+1=b then k:=k+1 else if a-1=b then k:=k+1; end; writeln ('Количество чисел отстающих на 1 от первого числа - ',k); end.
Answers & Comments
var n, a, b, k:integer;
begin k:=0;
writeln ('Сколько цифр будет в строке?');
read (n);
writeln ('Вводите числа, после каждого ENTER.');
read (b);
for n:=1 to n-1 do
begin
read (a);
if a+1=b then k:=k+1 else
if a-1=b then k:=k+1;
end;
writeln ('Количество чисел отстающих на 1 от первого числа - ',k);
end.