Ответ:
13
Объяснение:
Ниже составлена универсальная программа для задач такого типа. Все, что вам требуется-прописать в поле констант g как отрезок, h как целое. Прога выведет количество k отрезков g в бруске или чем-то таком h.
const
g = 1.5;
h = 20;
var
l : real;
k : integer;
begin
l:= 0;
k:= -1;
while l < h do begin
l:= l + g;
k:= k + 1;
end;
write(k);
end.
Program zzz;
var days:integer;
var discount, sum:real;
var days2:integer;
begin
readln(days, discount, sum);
days2 := 0;
sum := 0;
discount := discount / 10;
while( days2 <= days ) do begin
sum := sum + (sum * discount); {я не до конца понял задание, посему, скорее всего, придется тут менять}
sum := sum + 3;
days2 := days2 + 1;
end;
writeln('Ответ: ', sum);
<span>end.</span>
Смотрите файл *.pas В ANSI кодировке, или pdf файл.
Замечания.
Раз в условии говорилось о таблице, то я решил что массив двумерный.
Раз упоминались четные и нечётные, то массив целых чисел. Некоторая вольность в том, что решил включить и генерацию отрицательных чисел. (А в условии не сказано, что они должны быть положительными.)
Вообще после задания границ массива, можно было реализовать весь функционал программы в одном двойном цикле. И генерацию и анализ и формирование результатов. Но я так понял в задании нужно, чтоб в программе были пользовательские функции.
Кого сильно напрягают комментарии, просто "срубите шапку". Я там предварительные пояснения записывал
В тексте пусть будут.
Программисты которые создают вирусы более мотивированы чем те,которые создают антивирусы
