<span>N=2014
DIM A(N) AS INTEGER
DIM I, J, K AS INTEGER
FOR I = 1 TO N
INPUT A(I)
NEXT I
k = 0
if A(1) > A(2) and (A(1) mod 5 <> 0) then k = k + A(1)
if A(N) > A(N-1) and (A(N) mod 5 <> 0) then k = k + A(N)
for i = 2 to N-1
if (A(i) > A(i+1)) and (A(i) > A(i-1)) and (A(i) mod 5 <> 0) then k = k + A(1)
next i
print k
Именно бейсика у меня нет, так что писалось на VBS а потом добавлялись символы как думаю было бы правильно</span>
УккееееPaolo известно что среди них в 17 пакетиков зелёного чая сообщение о том что учить на носитель закажем стакан чёрного чая и вся твоя беда информацию сбросила с тобой может быть если ты там уже посмотрю
Var n:integer;
begin
writeln('n=');
readln(n);
case n of
3,4,5:writeln('Весна');
6,7,8:writeln('Лето');
9,10,11:writeln('Осень');
1,2,12:writeln('Зима');
end;
<span>end.</span>
Программа вылетает т.к. много значений перебирает, если не хочется подобного просто смените ограничение.
var i,a,b,c,d:integer;
begin
for i:=1000 to 9999 do begin
a:=i mod 10;
b:=(i div 10) mod 10;
c:=(i div 100) mod 10;
d:=(i div 1000) mod 10;
if (a=b) and (b=c) and (c=d) then writeln ('odinakovie cifri - ',i);
if (a<>b) and (a<>c) and (a<>d) and (b<>c) and (b<>d) and (c<>d) then writeln('ne odinakovie cifri - ',i);
end;