Program schet; var a:integer; label h; begin h: begin writeln('Введите количество палочек: '); readln(a); if (a<=0) then goto h else a:=a+3; writeln('У Тани стало ', a, ' палочек'); end; readln; end.
Program schet; var a,b:integer; begin a:=2015; writeln('Сколько лет проводится олимпиада?'); readln(b); a:=a-b; writeln('Первая олимпиада была проведена в ',a,' году.'); readln; end.
Program schet; var a,b,c,i:integer; begin writeln('Сколько семечек посадил Пятачок?'); readln(a); writeln('Сколько семечек не выросло?'); readln(b); a:=a-b; writeln('Сколько не плодоносных яблонь?'); readln(c); a:=a-c; writeln('На скольки яблонях вкусные яблоки?'); readln(i); a:=a-i; if (a<0) then writeln('Выросло 0 яблонь с невкусными яблоками.') else writeln('Выросло ',a,' яблонь с невкусными яблоками.'); readln; end.
Program schet; var a:real; begin writeln('Введите число, которое нужно округлить:'); readln(a); a:=round(a); writeln('ответ после округления: ',a); readln; end.
Переведем 57 в двоичное: 57 / 2 = 28 (в остатке 1) 28 / 2 = 14 (в остатке 0) 14 / 2 = 7 (в остатке 0) 7 / 2 = 3 (в остатке 1) 3 / 2 = 1 (в остатке 1) 1 / 2 = 0 (в остатке 1) 57(10) = 111001(2) Переведем 48 в двоичное: 48 / 2 = 24 (в остатке 0) 24 / 2 = 12 (в остатке 0) 12 / 2 = 6 (в остатке 0) 6 / 2 = 3 (в остатке 0) 3 / 2 = 1 (в остатке 1) 1 / 2 = 0 (в остатке 1) 48(10) = 110000(2)
111001
110000
Первый бит в обоих случаях равен 1, значит, первый бит маски тоже равен 1. Второй бит в обоих случаях равен 1, значит, второй бит маски тоже равен 1. Третий бит в IP-адресе равен 1, а в адресе сети равен 0, значит, третий бит маски равен 0. Если третий бит маски равен нулю, то все остальные биты маски тоже равны нулю. Но при переводе десятичных чисел в двоичные мы получили 6-битовое двоичное число, а нам нужно 8-битовое. Значит, слева добавляем два нуля.
00111001
00110000
Свойство маски гласит, что в ней сначала до некоторого разряда записаны только единицы, а затем только нули. Значит, первый и второй бит в новом представлении маски равны 1. Искомая маска: 11110000(2). Переведем 11110000 в десятичное число. (1*2^7)+(1*2^6)+(1*2^5)+(1*2^4)+(0*2^3)+(0*2^2)+(0*2^1)+(0*2^0)=128+64+32+16=240 ответ: 240(10)
var a:integer;
label h;
begin
h:
begin
writeln('Введите количество палочек: ');
readln(a);
if (a<=0) then goto h
else
a:=a+3;
writeln('У Тани стало ', a, ' палочек');
end;
readln;
end.
Program schet;
var a,b:integer;
begin
a:=2015;
writeln('Сколько лет проводится олимпиада?');
readln(b);
a:=a-b;
writeln('Первая олимпиада была проведена в ',a,' году.');
readln;
end.
Program schet;
var a,b,c,i:integer;
begin
writeln('Сколько семечек посадил Пятачок?');
readln(a);
writeln('Сколько семечек не выросло?');
readln(b);
a:=a-b;
writeln('Сколько не плодоносных яблонь?');
readln(c);
a:=a-c;
writeln('На скольки яблонях вкусные яблоки?');
readln(i);
a:=a-i;
if (a<0) then writeln('Выросло 0 яблонь с невкусными яблоками.')
else writeln('Выросло ',a,' яблонь с невкусными яблоками.');
readln;
end.
Program schet;
var a:real;
begin
writeln('Введите число, которое нужно округлить:');
readln(a);
a:=round(a);
writeln('ответ после округления: ',a);
readln;
end.