Компилятора нету,попробуй этот код
var
n,sum,a,b,c,i:integer;
begin
a:=0;
b:=1;
readln(n);//Посчитать сумму первых n чисел
for i:=1 to n do
begin
sum:=sum+a;
c:=a;
a:=b;
b:=c+a;
end;
writeln(sum);
end.
--------------------------------------------------
//Через repeat until
var
n,sum,a,b,c,i:integer;
begin
a:=0;
b:=1;
i:=0;
readln(n);//Посчитать сумму первых n чисел
repeat
sum:=sum+a;
c:=a;
a:=b;
b:=c+a;
i:=i+1;
until i>=n;
writeln(sum);
end.
1) Наиболее распространенная причина появления ошибки 500 internal server error, это некорректное содержимое файла .htaccess. В этом файле не должны присутствовать специальные php-директивы, по типу таких:
<span>php_value name value
php_flag name on|off</span>
Другие некорректные директивы или содержимое, также могут вызывать эту ошибку.
Для исправления в данном случае, необходимо перед строкой, в которой вы сомневаетесь, поставить знак комментирования #, который указывает серверу, что это не команда, а простой комментарий, и поэтому, ее не нужно выполнять.
Если после комментирования определенной строки, ваш сайт заработал, значит, проблема в синтаксисе или сочетании команд.
1.просто, понятно.
2.степень соответствии информации.
3.соответствие образа.
4.правда.
5.соответствие характеристики.
6.право беспрепятственного доступа.
Будем искать сначала двузначные числа, удовлетворяющие условию задачи.
Обозначим через x и y искомые цифры числа. Очевидно, что x и y должны быть значениями из интервала [1..3].
Тогда xy(5) = yx(4) ⇒ 5*x+y = 4*y+x ⇒ 4*x = 3*y
Очевидно, что x и y должны быть значениями целыми положительными из интервала [1..3] и, следовательно, двузначных чисел, удовлетворяющих условию задачи, не существует.
Рассмотрим трехзначные числа, обозначив старшую цифру через a:
axy(5) = ayx(4) ⇒ 5*5*a+5*x+y = 4*4*a+4*y+x ⇒ 9*a+4*x = 3*y
Пусть a=1, тогда:
9+4*x = 3*y
Так как ни x, ни y не являются старшой цифрой, то оба значения могут быть из интервала [0..3].
При x=0 получим подходящее нам значение y=3.
Итак, 103(5) = 5*5+3 = 28(10); 130(4) = 4*4+3*4 = 28(10)
Рассмотрев аналогичным образом x=1;2;3, а также a=2 и a=3, увидим, что других чисел, удовлетворяющих условию, нет.
Ответ: 28
Program z1;
Uses Crt;
var a,i:integer;
p:longint;
begin
clrscr;
p:=1;
write('Введите число а: ');
readln(a);
for i:=a to 100 do
p:=p*a;
writeln('Произведение всех чисел от ',a,'до 100:',p);
readkey;
end.
Program z2;
Uses Crt;
var s,i:integer;
i:=2;s:=0;
while(i<=98) do
begin
s:=s+i;
i:=i+2;
end;
clrscr;
write('Сумма последовательности: ',s);
readkey;
end.
Program z3;
Uses Crt;
var a,i:integer;
begin
clrscr;
a:=0;
for i:=100 to 999 do
if ((i mod 5)=0 and (i mod 21)=0) then
a:=a+1;
write('Количество 3-значных чисел делящихся без остатка на 5 и 21: ',a);
readkey;
end.
Program z4;
Uses Crt;
var a,i,s:integer;
begin
clrscr;
s:=10:
write('Введите количество тренировочных дней: ');
readln(a);
for i:=2 to a do
s:=s+3;
write('Суммарное расстояние: ',s);
readkey;
end.
Program z5;
Uses Crt;
var a,i,n,s:integer;
begin
clrscr;
write('Введите количество отрядов: ');
readln(n);
s:=0;
for i:=1 to n do
begin
write('Введите количество детей в ',i ,'-м отряде:' );
readln(a);
clrscr;
s:=s+a;
end;
writeln;
writeln('Общее количество детей в лагере:',s);
readkey;
end.
