Найти ошибку
var a, b, c, d, x, k: integer;
begin k=0
for x: = 1000 to do
begin
a: = x div 1000;
b: = x div 100 mod 10;
c: = x div 10 mod 10;
d: = 0;
a+b+c+d=10 then k: =k+1
end;
writeln (c)
end.

Question

Информатика: Найти ошибку var a, b, c, d, x, k: integer; begin k=0 for x: = 1000 to do begin a: = x div 1000; b: = x div 100 mod 10; c: = x div 10 mod 10; d: = 0; a+b+c+d=10 then k: =k+1 end; writeln (c) end.

DellXT · Accepted Answer

Так как в задании не указано, что введенное слово должно обрамляться пробелами, то код может быть такой:

var s,a:string;
    begin
    write('Введите строку : ');
    readln(s);
    write('Введите слово : ');
    readln(a);
       if(pos(a, s) <> 0) then writeln('Слово "',a,'" в строке есть')
       else writeln('В строке такого слова нет');
    end.

Тест №1
Введите строку : Привет участникам олимпиады!
Введите слово : ник
Слово "ник" в строке есть

Тест №2
Введите строку : Всем привет!
Введите слово : админ
В строке такого слова нет

Найти ошибку var a, b, c, d, x, k: integer; begin k=0 for x: = 1000 to do begin a: = x div 1000; b: = x div 100 mod 10; c: = x div 10 mod 10; d: = 0; a+b+c+d=10 then k: =k+1 end; writeln (c) end.

MOGZ ответил

Найти ошибку
var a, b, c, d, x, k: integer;
begin k=0
for x: = 1000 to do
begin
a: = x div 1000;
b: = x div 100 mod 10;
c: = x div 10 mod 10;
d: = 0;
a+b+c+d=10 then k: =k+1
end;
writeln (c)
end.