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

ответ:

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.

здесь используется связка или, такое выражение ложно тогда и только тогда когда ложны высказывания из которых оно состоит, а в остальных случаях выражение истинно.

1. буква а первая буква в слове аист или сова - истинно.

2. две прямые на плоскости паралельны или пересекаются - истинно.

3. луна планета или 2+3=5 - ложь.

на выходе 109

program p_1; var x,y: real; beginwriteln ('vvedite x'); readln(x); writeln ('vvedite y'); readln(y) ; if x=1 then y: =3; {на всякий случай, мало ли по клавише тне никак не можно ставить другие значения. эту строчку можно и }x: =y-x; y: =2*x; x: =2*y+x; y: =y+x/2; writeln(x,'',y); readln; end.