Uses crt;
var input, betw:integer;
begin
readln(input);
betw := input;
betw := betw div 10;
betw := betw div 10;
betw := betw div 10;
writeln('Тысяч = ', betw);
betw := input;
betw := betw div 10;
betw := betw div 10;
betw := betw mod 10;
writeln('Сотен = ', betw);
betw := input;
betw := betw div 10;
betw := betw mod 10;
writeln('Десятков = ', betw);
betw := input;
betw := betw mod 10;
writeln('Единиц = ', betw); end.
K = 60*50*40
N = 65536
N = 2^j
j = 16
I ( объем инф-ии) = 16*60*50*40 = 1920000 бит = 240000 байт =234,3 Кбайт
ответ: 234,3 Кбайт
Так как в результате первого сложения должно получиться <u>трехзначное число</u>, то нетрудно предположить, что три одинаковые цифры -<u> три девятки</u>.
99+9=108
Соответственно:
X=9
B=0
A=1
C=8
Подставляем во второе выражение и решаем:
4*9+3*0+2*1+8=36+2+8=46
<span>Ответ: д) 46</span>
1. var
i:integer;
begin
for i:=1 to 10 do
begin
writeln (i, sqr(i));
readln;
end.
2. var
i:integer;
begin
for i:=2 to 20 do
begin
if sqr(i) div 2 = 0 then
write (i, ' = 'sqr(i) );
end;
readln;
end.
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(6, -1, 5);
a.Println;
Writeln('Сумма положительных значений равна ',
a.Where(t -> t > 0).Sum)
end.
<h2>Пример</h2><h3>2 5 1 0 -1 3</h3><h3>Сумма положительных значений равна 11</h3>