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

149

464

Посмотреть ответы 2

Ответы на вопрос:

MiyaGi228

Информатика

4,6(56 оценок)

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.

Iikhovaydov

Информатика

4,5(57 оценок)

Var a1, a2: integer; begin a1 : = 0; a2 : = 0; writeln('enter the first value: '); read(a1); writeln('enter the second value: '); read(a2); if (a1*a2 mod 3 = 0) then begin writeln('da'); end else writeln('net'); end.