В летнем лагере отдыхало 85 семиклассник(-ов, -а). 7 из них не любят компьютерные игры. 54 семиклассник(-а, -ов) предпочита(-ют, -ет) квесты, 62 — симуляторы. Сколько ребят с одинаковым удовольствием играют и в квесты, и в симуляторы?

shift-шифт и caps loct-капс лук

пример программы для паскаль

program a;

const n = 50; vari: byte; b: array[1..n] of word; procedure proc(a: array of word); beginfor i: =1 to n doif((129 < = a[i]) and (a[i] < = 160)) or        ((161 < = a[i]) and (a[i] < =175)) or          ((225 < = a[i]) and (a[i] < = 242)) thenwriteln('index =  ',i+1,'; bukva -  ''',char(a[i]),'''','    a[i] =  ',a[i]); end;

beginwriteln; for i: =1 to n do              b[i] : = random(300); for i: =1 to n do begin                  write(' ',i,'  =  ',b[i]); if (i mod 5 = 0) then writeln; end; writeln; writeln; proc(b);           readln;

end.

1.

var a: longint;

begin

  read(a);

  if (a mod 10)=(a div 10) then writeln('цифры одинаковы');

  if (a mod 10)> (a div 10) then writeln('вторая цифра больше');

  if (a div 10)> (a mod 10) then writeln('первая цифра больше');

end.

2.

var a,b,c: longint;

begin

  read(a);

  b: =a mod 10;

  c: =a div 10;

  b: =b*b*b;

  c: =c*c*c;

  d: =4*(b+c);

  if sqr(a)=d then writeln('квадрат этого числа равен учетверённой сумме кубов его цифр') else writeln('  квадрат этого числа не равен учетверённой сумме кубов его цифр');

end.

3.

var a,b,c,d: longint;

begin

  read(a);

  b: =a mod 10;

  c: =a div 10;

  d: =c+b;

  if d mod 3=0 then writeln('сумма цифр данного числа кратна 3') else writeln('сумма цифр этого числа не кратна 3');

  if  d mod 4=0 then writeln('сумма цифр данного числа кратна 4') else writeln('сумма цифр этого числа не кратна 4');

end.

4.

var a,b,c,d,e: longint;

begin

  read(a);

  b: =a mod 10;

  c: =(a mod 100)   div 10;

  d: =a div 100;

  b: =b*b*b;

  c: =c*c*c;

  d: =d*d*d;

  e: =b+c+d;

  if sqr(a)=e then writeln('квадрат этого числа равен сумме кубов его цифр.') else  writeln('квадрат этого числа не равен сумме кубов его цифр.');

end.

5.

var a,b,c,d: longint;

begin

  read(b,a);

  c: =b mod 10;

  d: =b div 10;

  if (c=3)or(d=3) then writeln('в запись этого числа входит цифра 3') else  writeln('в запись этого числа не входит цифра 3');

  if (c=a)or(d=a) then  writeln('в запись этого числа входит цифра ',a') else  writeln('в запись этого числа не входит цифра ',a);

end.

program fasf;

var

n,q: integer;

begin

write('введите этаж: ');

readln(n);

q: =n*4;  

writeln('квартиры: ',q,q-1,q-2,q-3);

end.