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

ответ:

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.

x=16

ответ: 16 этажей

program mdd; uses crt; var i: longint; beginclrscr; for i: = 10 to 99 dobeginif i mod 13 = 0 then writeln(i); end; readkey; end.