Question

Составьте блок-схему алгоритма, используя итерационный цикл с постусловием. дана последовательность целых чисел а1, a2, a18, в начале которой записано несколько равных между собой элементов. определить количество таких элементов последовательности. условный оператор не использовать

Answer 1

Блок-схема - в прилагаемом файле.
Замечание: если известно, что количество одинаковых элементов < 18, то вместо if b<>a then k:=k-1; можно написать просто k:=k-1;
var a,b,k:integer;
begin
readln(a);
k:=1;
repeat
b:=a;
readln(a);
k:=k+1;
until (b<>a)or(k=18);
if b<>a then k:=k-1;
writeln(k);
end.