да могут норазные примеры например волны итд
1-а
2-б
3-в
4-г
5-д
6-б
Очень лёгкий тест! Надеюсь что помогла.)
{В данной последовательности к числу сначала 2 раза прибавляется 3, после один раз вычитается 3. Данная программа "ест" много памяти, но с ходу я ничего лучше не могу придумать}
//Pascal ABC.NET v3.0 сборка 1111
Var
i,k:integer;
ar:array[1..2100] of integer;
begin
ar[1]:=3;
ar[2]:=6;
ar[3]:=9;
ar[4]:=6;
i:=4;
while i<2015 do
begin;
inc(i);
ar[i]:=ar[i-1]+3;
inc(i);
ar[i]:=ar[i-1]+3;
inc(i);
ar[i]:=ar[i-1]-3;
end;
write(ar[2015]);
<span>end.
Ответ: 2019</span>
Процедура:
procedure dp(a,b: integer);
begin
writeln(a div b);
end;
функция:
function df(a,b: integer): integer;
begin
df:=a div b;
end;
программа с процедурой:
Program n1;
var x,y: integer;
procedure dp(a,b: integer);
begin
writeln(a div b);
end;
begin
readln(x,y);
dp(x,y);
end.
программа с функцией:
Program n1;
var x,y: integer;
function df(a,b: integer): integer;
begin
df:=a div b;
end;
begin
readln(x,y);
writeln(df(x,y));
end.