Используйте интеллект-карту для того, чтобы сделать краткое сообщение об объектах

ответ:

var a,b: integer;

is7: boolean;

begin

readln(a);

b: =0;

is7: =false;

while a < > 0 do

begin

b: =b+a mod 10;

if a mod 10 = 7 then

is7: =true;

a: =a div 10;

end;

wrtieln('сумма цифр: ', b);

write('цифра 7 ');

if is7 then writeln('есть') else writeln('нет');

readln;

end.

varslovo,simval: string; i,k: integer; begink: =0; write('vvedite slovo '); readln(slovo); write('vvedite simval '); readln(simval); for i: =1 to length(slovo) dobeginif slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 thenwriteln('yes vstre4aets9 ',k,' raz, na pozicii ',i)else writeln('no'); writeln; end.вот в одном решении

  вот первая программа. вторую сейчас пишу.

program p_1; var a,b: string; i,k: integer; begin k: =0; write('введите слово '); readln(a); write('введите символ '); readln(b); for i: =1 to length(a) do begin if a[i]=b then k: =k+1; if a[i]=b then writeln(i,' '); end; if k> =1 then writeln('да, встречается ',k,' раз, на позиции указанных сверху в столбик ')else writeln('нет'); end.