Pascal 1. дано 3- х - значное число. определить, входит ли в него цифра 6? 2. напечатать ряд чисел 20 20 20 20 20 20 20 20 20 20

var

  n : integer;

begin

  read (n);

  if (n mod 10 = 6) or (n div 100 = 6) or (n div 10 mod 10 = 6) then write ('yes') else write ('no');

end.

 

var

  i : integer;

begin

  for i : = 1 to 10 do write ('20 ');

end. 

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! function res(a: integer; op: char; b: integer): integer; begin   case op of   '+': result: =a+b;   '-': result: =a-b;   '*': result: =a*b;   '/': result: =a div b   end end; begin   var s: =readlnstring('вводите: ');   var p: =s.matches('+)|[\+\-\*\/])').toarray;   if p.count< > 5 then writeln('ошибка! ')   else begin       var op1: =p[1].value[1];       var op2: =p[3].value[1];       var a: =p[0].value.tointeger;       var b: =p[2].value.tointeger;       var c: =p[4].value.tointeger;       if (op1 in ['+','-']) and (op2 in ['*','/']) then           writeln('='+res(res(b,op2,c),op1,a))       else writeln('='+res(res(a,op1,b),op2,c))       end end. примеры вводите: -4--3--2 =1 вводите: 12*3+45 =81 вводите: 45+12*3 =81 вводите: -26/13--5 =3

1) чтобы перевести из 2-ой системы в 10-ную нужно каждую цифру умножить на основание системы счисления в степени в какой стоит цифра:

111101(2) = 1 * 2^5 + 1 * 2^4 + 1 * 2^3 + 1 * 2 ^ 2 + 0 * 2 ^ 1 + 1 * 2^0 =

= 32 + 16 + 8 + 4 + 0 + 1 = 61 (10)

2) чтобы перевести число из 10-ой системы в 2-ную нудно делить исходной число на 2 до тех пор пока исходной число не станет меньше 2, остатки от деления записанные в обратном порядке будут результатом

65 : 2 = 32(ост. 1)

32 : 2 = 16(ост. 0)

16 : 2 = 8(ост. 0)

8 : 2 = 4(ост. 0)

4 : 2 = 2 (ост. 0)

2 : 2 = 1 (ост. 0)

65(10) = 1000001(2)