<em>VAR</em>
<em> i, kol: Integer;</em>
<em> a: Array [1..20] of Integer;</em>
<em>BEGIN</em>
<em> For i := 1 to 20 do Read(a[i]);</em>
<em />
<em> For i := 1 to 20 do</em>
<em> If (a[i] < -20) then Inc(kol);</em>
<em />
<em> Write(kol);</em>
<em>END.</em>
Для оформления сайтов в веб-дизайне намного чаще других используется цветовая модель RGB.
// Возможно, это работает
#include<stdio.h>
int main()
{
int x,s,l,n;
scanf("%d", &n);
do{
s = 0;
for(x = 1; x <= n; x++)
{
s += 1;
l = 10;
while(x % l == 0){s -= 9; l *= 10;};
if(x % s == 0) printf("%d ",x);
};
printf("\n");
scanf("%d", &n);
} while(n > 0);
}<span>
</span>
1. Убрать ; после program
2. war заменить на var
3. Не нужны строки writeln('Введите число d'); readln(d); - это не ошибка, а просто мусор
4. Вместо p= должно быть p:=
5. Вместо z=sqrt a*b-5.1; должно быть z:=sqrt(a*b-5.1);
6. Вместо R= должно быть R:=
7. Вместо writeln('вывести число'); должен быть организован вывод R, например, writeln('R=',R);
8. Вместо readlns; должно быть readln, точка с запятой перед end необязательна.