1 информатика
2блок
3хз
4материнка
5вирус
6бит
7плата
8хз
1.
var x,s:integer;
begin
read(x);
s := 0;
while x > 0 do
begin
if x mod 10 < 6 then s := s + 1; {здесь была ошибка}
x := x div 10
end;
write(s)
<span>end.
2.
var x,s:integer;
begin
read(x);
s := x mod 10;
while x > 10 do
x := x div 10;
write(x + s)
<span>end.
3.
var x,a,b:integer;
begin
read(x);
a := x mod 10;
b := x mod 10;
while x > 0 do
begin
if x mod 10 > a then a := x mod 10;
if x mod 10 < b then b := x mod 10;
x := x div 10;
end;
write(a + b)
<span>end.</span></span></span>
http://pro-spo.ru/workopenoffice/3900-openoffice-calc-dlya-nachinayushhix-elektronnaya-tablicza-kak-baza-dannyx-pechat-dokumenta СИЛКА НА САЙТ З ПОЯСНЕННЯМ!!!
10101010(2) =170(10)
Решение:
Приведем 10101010 из системы счисления 2 в десятичную систему счисления
101010102=1·2(7) +0·2(6) +1·2(5) +0·2(4) +1·2(3) +0·2(2) +1·2(1) +0·2(0) =170(10)
252(8) =170(10)
Приведем 252 из системы счисления 8 в десятичную систему счисления
252(8)=2·8(2) +5·8(1) +2·8(0) =170(10)
7(16) =7(10)
Приведем 7 из системы счисления 16 в десятичную систему счисления
7(16)=7·16(0) =7(10)
170(10) - 170(10) + 7(10) = 7(10)
Предположем, что кол-во баллов - столбец B, строки начиная с первой. В вашей таблице замените адреса ячеек на нужные.
=ЕСЛИ (B1 < 18; "Степендию не получает"; ЕСЛИ (B1 >= 23,5; "Повышенная стипендия"; "Обычная стипендия"))