Напишите программу прошу ваас"40 паскаль

qbasic:

input "число а=", a 

x = a 

do

  x = x ^ 2 + 1

  n = n + 1

loop until x > = 1000000

print a, x, n

max(n) = 7, при a = 0

var

x,y: real;

begin

readln(x);

y: =7*sin(x)*sin(x)-0.5*cos(x);

writeln(y);

end.

смотри блок-схему в приложенном файле

1)

высказывание   не (не  а  и  b)  будет ложным когда высказывание

(не  а  и  b)   будет истинным, оно в свою очередь будет истинным когда

будут истинны одновременно высказывание  не  а  и   высказывание  b

то есть когда а ложное а в истинное

2)

число 376 трехзначное и четное

а=число 376 трехзначное

в=число 376 четное

а и в

или

если сумма цифр числа делится на 3, то число делится  на  3

а=сумма цифр числа делится на 3

в=число делится  на  3

если а то в