Сравни отправляемые электронные письма что особенное ты заметила Чем они различаются​

program m;

uses crt;

var a,b,c,sum: integer;

begin

clrscr;

readln(a,b,c);

sum: =a+b+c;

writeln('          ',sum);

readkey;

end.

наверняка двоичные числа надо только определить где ноль а где один

наверно о - one

10101

10110

10111

11000

11001

вроде как сходится, продолжаем

11010

11011

11100

11101

11110

11111

обратную замену самостоятельно

program num1; uses crt; var i : integer; beginclrscr; for i: =20 to 40 doif (i mod 2) = 0 then write(i,' '); end.

pascal

program tovar;

var i,k: integer; t,s: real;

begin

s: =0;  

writeln ('vvedit kol-vo tovara');

readln (k);

for i: =1 to   k do

begin

writeln ('vvedit stoimost',i,'-go tovaru');

readln (t);

s: =t+s;

end;

writeln ('stoimost pokupok-',s);

readln

end.