Найти ошибки в программе program oshibka; var a: b; c: integer; begin writeln('введите число ', a); readln('a') b=5 c: =ab; writeln('произведение a и b'равно', s); readln(a); end

1.точку после энда ставить нужноreadln(a);

readln(b); 2.c: =a*b;

3.writeln('proizvedenie a i b ravno,c); 4.readln(c);

 

 

 

 

А) var     s: string;     mas: array ['a'..'z'] of longint; {индексы элементов соответствуют латинице}     c: char;     i: longint; begin       read(s);       for c: ='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице}           mas[c]: =0;       for i: =1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)}           mas[s[i]]: =mas[s[i]]+1;       for c: ='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся}           if(mas[c]=1) then                       writeln(c); end.

Var        str: string;         i, count: integer; begin        write('your string: ');         readln(str);         i : = length(str);         if i > 0 then begin                count : = 1;                 while i > 0 do begin                        if str[i] = ' ' then                                count : = count + 1;                         i : = i - 1;                 end;         end        else                count : = 0;                 delete(str,3,1);         writeln('number of words: ', count);           writeln(str); readln; end.