Створити вікно розмірами 300 х 300 жовтого кольору з назвою "Весна". У вікні додати напис "Квітень" зеленого кольору та синю кнопку, при натисненні на яку малюється жовте коло

program xxx;

var n, c, d, e, k : integer;

begin

  wtite ('введите 3-х значное число n =');

  readln (n);

  c : = n div 100;

  d : = (n div 10) mod 10;

  e : = n mod 10;

  k: = 100*e + 10*d + c;

  if n = k then write ('палиндром') else write('не палиндром')

end.

имитационные модели оперируют разыгрыванием случайной величины!   если детерминированная модель слишком сложна или вообще не возможна, то на приходит имитационная модель!

1. (a+b+c)& (неa& b& неc)= a& неa& b& неc+b& неa& b& неc+c& неa& b& неc=0+неa& b& неc+0=неa& b& неc2. (a+b)& (неb+a)& (неc+b)=(a& неb+a& a+b& неb+b& a)& (неc+b)= (a& неb+a+0+b& a)& (неc+b)= (a& неb+a+b& a)& (неc+b)=a& неb& неc+a& неb& b+a& неc+a& b+b& a& неc+b& a*b= a& неb& неc+0+a& неc+b& a& неc+a& b+a& b=a& неb& неc+a& неc+b& a& неc+a& b=a& неc(b+1)+ a& b& (неc+1)=a& неc+a& b= a& (неc+b)3. (1+(a+b))+((a+c)& 1)=1+((a+c)& 1)= 1+(a& 1+c& 1)= 1+a+c=14. (a& b& неc)+(a& b& c)+не(a+b)= (a& b& неc)+(a& b& c)+неa& неb= (a& b)& (неc+c)+неa& неb=a& b+неa& неb= a~b5. (a+b+c)& не(a+неb+c)= (a+b+c)& неa& b& неc=a& неa& b& неc+b& неa& b& неc+c& неa& b& неc=0+неa& b& неc+0=неa& b& неc

ваня на п

саша на в

коля на с

петя на к