Составьте блок-схему алгоритма, используя итерационный цикл С ПОСТУСЛОВИЕМ. Дана...

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.

---

Comments

Cпасибо! Не могли бы пожалуйста решить еще одну задачку? Буду благодарен!

---

Очень срочно нужно Составьте блок-схему алгоритма используя цикл с параметром. Условный
оператор в теле цикла не использовать.
Одна штука некоторого товара стоит 20.4 руб. Напечатать таблицу стоимости 2,3,...,20 штук этого товара.

---

Все задачки оформляйте по правилам, а не в комментариях.