Составить программы решения в паскале: 1. определить, является ли целое число n четным двузнычным числом. 2. подсчитать количество отрицательных чисел среди чисел а, b, c.

№1

program z1;

var n: integer;

begin

write ('введите число n: ');

readln(n);

if (n mod 2 = 0) and (n div 100 < 1) and (n > 9) then write('данное число является четным двузначным') else if  (n div 100 < 1) and (n > 9) then write ('данное число не четное двузначное');

end.

 

№2

program z2;

var a, b, c, k: integer;

begin

k: =0;

writeln ('введите числа a, b и c: ');

readln(a,b,c);

if a< 0 then k: =k+1;

if b< 0 then k: =k+1;

if c< 0 then k: =k+1;

write('количество отрицательных чисел: ',k)

end.

#include

void main()

{

int x;

std: : cin> > x;

int sum = 0;

int prod = 1;

while(x> 0)

{

  int y = x%10;

  sum = sum + y;

  prod = prod * y;

  x=x/10;

}

if(sum%10 == 0 & & prod < 100)

  std: : cou< < "yes"<

else:

  std: : cout< < "no"<

}

pascal

var n,digit,sum,prod: integer;

begin

  readln(n);

sum = 0;

prod = 1;

  while (n> 0) do

  begin

  digit: =n mod 10;

  sum = sum+digit;

  prod = prod * digit;

  n: =n div 10;

  end;

if(sum mod 10=0)and(prod< 100)

begin

writeln("да");

end

else

begin

writeln("нет"):

end;

как то так

end.

из того,что смит самый высокий следует,что он играет не на скрипке.так же понимаем,что смит играет не на альте и не на трубе.значит,он играет на флейте и гобое

браун не играет на трубе,это понятно.но тогда он играет на альте,так как ссорится с трубачом.значит,на трубе играет вессон.

из предложения,что игращие на скрипке и флейте и браун любят пиццу получаем,что браун играет не на скрипке.значит,браун играет на альте и кларнете.а вессон - на скрипке и на трубе.

ответ: смит играет на флейте и гобое,браун играет на альте и кларнете,вессон - на скрипке и трубе