1) 73=1001001 (2) 2)91=1011011 (2)
44=101100 (2) 28=11100 (2)
+1001001 -1011011
101100 11100
1110101= 117 (10) 111111=63 (10)
3)27=11011 (2)
5=101 (2)
*11011
101
+ 11011
00000
11011
10000111=135
4)70=1000110 (2)
7=111 (2)
- 1000110 | 111
111 |
1010= 10 (10)
-111
111
0
Program abitura;
Uses Crt;
var n,i,r,n1,n2,n3:integer;
begin
clrscr;
write('Введите количество абитуриентов:');
readln(n);
for i:=1 to n do
begin
writeln('Абитуриент номер ' ,i );
write('Введите оценку за первый экзамен');
readln(n1);
write('Введите оценку за второй экзамен');
readln(n2);
write('Введите оценку за третий экзамен');
readln(n3);
r:=n1+n2+n3;
if (r>=13) then writeln('Вы зачислены на дневное отделение ');
if (r>10) and (r<12) then writeln('Вы зачислены на вечернее отделение ');
if (r>=8) and (r<=9) then writeln('Вы зачислены на заочное отделение ');
if (r<8) then writeln('Вам отказанно в зачислении ! ');
end;
readkey;
end.