Я позже смогу ответ скинуть,эту же тему сейчас проходим
Ну отдыхает и че?.......,,.,,
Всё очень просто, черточки на линиях идущих из центра ответствуют значениям 5, 10 и 15, линий всего 5, значит диаграмма построена по 5 параметрам, следовательно взглянув на диаграмму мы видим что первое значение у нас 4, соответствует ячейке А1, второе значение 10 соответствует ячейке С1, третье значение 15 соответствует ячейке D1, четвертое значение 4, соответствующее ячейке Е1 и пятое значение 8 соответствующее ячейке F1
Не совсем красиво но без массивов
var cur_num, prev_num: integer;
Begin
Writeln('Введите последовательность закончив ее нулем');
read(prev_num);
repeat
read(cur_num);
if cur_num * prev_num > 0 then
writeln('Пара = ', cur_num * prev_num);
prev_num := cur_num;
until cur_num = 0;
End.
5->27
К1+3
К2•3
К1 5+3=8
К2 8•3=24
К1 24+3=27
Ответ: 3 команды