, прокомментировать написанные программы (нужно описать построчно программы): 1)

#include

#include

int main()

{

​ ​ ​ char s[5], passw[]="kuku";

​ ​ ​ int i, k=0;

​ ​ ​ for(i=0; !k && i<3; i++)

​ ​ ​ {

​ ​ ​ ​ ​ ​ printf("\n Vvedite parol:\n");

​ ​ ​ ​ ​ ​ gets(s);

​ ​ ​ ​ ​ ​ if(strstr(s, passw))k=1;

​ ​ ​ }

​ ​ ​ if(k) printf("\n parol prinat");

​ ​ ​ else printf("\n parol ne prinat");

​ ​ ​ system("pause");

​ ​ ​ return 0;

}

2)

#include

#include

void main()

{

char z;

clrscr();

for(z='0';z<='9';z++)

{

if (z=='0' || z=='5') printf("\n");

printf (" %с-%в ",z,z);

}

getch();

}

3)

#include

main()

{

char c;

c=getchar();

while(c!=EOF)

{

putchar(c);

c=getchar();

}

}

1)var

a:array[1..5]of integer;

i,n,s:integer;

begin

 writeln('Введите кол-во элементов');

 readln(n);

 writeln('Введите число');

 s:=0;

 for i:=1 to n do begin

   read(a[i]);

   if a[i]>0 then s:=s+a[i]

 end;

 writeln('Сумма положительных элементов массива равна ', s)

end.

2)var

a:array[1..10]of integer;

i,n,P:integer;

begin

 writeln('Введите число элементов');

 readln(n);

 writeln('Введите число');

 P:=1;

 for i:=1 to n do begin

   read(a[i]);

   if a[i] mod 6 = 0  

   then P:=P*a[i]

 end;

 writeln('Произведение элементов массива кратных 6 равна ',P)

end.

3)var

a:array[1..5]of integer;

n,i:integer;

begin

 writeln('Введите кол-во элементов');

 readln(n);

 writeln('Введите число');

 for i:=1 to n do begin

   read(a[i]);

   if a[i]>0 then begin

   a[i]:=a[i]*3;

   writeln('Новый элемент равен: ',a[i])

 end;

 if a[i]<=0 then begin

   a[i]:=a[i]+5;

    writeln('Новый элемент равен: ',a[i])

 end;

 end;

end.

Буду рад если отметишь мой ответ как лучший

1)
a) не может, потому что переменные должны всегда начинаться с буквы
b) может
c) не может, слова могут быть разделены только знаком "_",не пробелом!
d) может

2) присваивание, обозначается знаком "="
Например:
sum = 0;

3) 
4 строка - не red, а read
пропущена трока между 2 и 3 строчкой - это begin

4)
var
     S, P, a, b: integer
begin
     write('Введите сторону а: ');
     readln(a);
     write('Введите сторону b: ');
     readln(b);
     
     S = a * b; {нахидим площадь}
     P = (a + b) * 2; {находим периметр}

     writeln('Площадь = ', S, ', периметр = ', P);
end.

5)
Var
     number, {Трехзначное число}
     num1, {Первая крайняя цифра}
     num2, {Вотрая крайняя цифра}
     : integer;
Begin
     write('Введите число');
    readln(number);
   
     num1 = number mod 10;
     num2 = number div 100;
    
     writeln('Сумма крайних цифр числа ', number, ' = ', num1 + num2);
End.