ПаскальРешите пожалуйста
5-9 класс
|
var
n, k, i, j: integer;
s: array[1..15] of integer;
begin
assign(input, 'task2.in'); reset(input); readln(n, k); close(input);
assign(output, 'task2.out'); rewrite(output);
for i := 1 to n do
if i <= k then s[i] := 1 else s[i] := 0;
for i := 2 to n do
begin
j := i - 1;
while (j > 0) and (j >= i - k) do
begin
s[i] := s[i] + s[j];
j := j - 1
end
end;
write(s[n]);
close(output)
end.
Другие вопросы из категории
Условие: Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами.
Не совсем то выводит, и модуль может как-то через abs надо.
program proizvedenie;
var q,z,w,i,n,i1,i2:integer;
a:array[1..1000] of real;
amin,amax,pr:real;
begin
assign (input,'input.txt');
assign (output,'output.txt');
reset (input);
rewrite (output);
readln(n);
for i:=1 to n do read (a[i]);
amin:=a[1];
for i:=1 to n do
begin
if a[i]<amin then
begin
amin:=a[i];
i1:=i;
end;
end;
amax:=a[1];
for i:=1 to n do
begin
if a[i] > amax then
amax:=a[i];
i2:=i;
end;
if i2>i1 then begin
q:=i1;
w:=i2;
end
else begin
q:=i2;
w:=i1;
end;
if (w-q)>1 then begin
pr:=1;
for z:=q to w do
pr:=pr*a[z];
end
else write (0);
close (input);
close (output);
end.
среди плодов не было маленьких груш и маленьких зеленых яблок. яблок было-25, а груш-17. большихплодов было 32. желтых плодов 28. зеленых яблок на два больше, чем. зеленых груш. иван угостил друзей фруктами. им больле всего понравились большие желтые яблок. сколько было таких яблок
Читайте также
типо по такой же системе которую щас напишу! program Maximum; i,n,max:integen; begin writeln ( 'введи элементы массива для поиска максимума'); for i:=1 to 10 do begin write ('a [', i ,']=');readln (a [ i ] ) ;end; max:=a[1]; for i = 2 to 10 do if a [ i ] > max then begin max:=a [ i ] ; n:= i ; end; writeln ('найти наибольший элемент ',max ,' под номером ', n); вот наподобие этого примера нужно построить мою задачу! в заданной последовательности целых чисел определите сумму элементов кратных 10. Помогите пожалуйста!!!
Вычислить сумму всех элементов двумерного массива. Напишите, пожалуйста, программу.
Алгоритм выглядит примерно так- Сместиться в точку ....
Опустить перо
Сместиться на вектор ...
Моё имя-Нурлан
Пожалуйста кто сможет напишите ) Заранее большое спасибо вам
1. Приведите 2-3 примера схем, с которыми вы сталкиваетесьв повседневной жизни. Информационными моделями каких обьектов являются эти схемы?
И еще одно:
2. В каких сферах деятельности невозможно обойтись без карт - информационных поверхностей Земли?
Я надумала только географию, но нужно еще.
Пожалуйста!