Муха
Мура
Тура
Кара
Тара
Кара
Каре
Кафе
Кафр
Каюр
Каюк
Крюк
Урюк
Урок
Срок
Сток
Стон
Слон
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Матем ИЗ "...\Отделы\Обмен\";
ПЕР
массив: РЯД 100 ИЗ ЦЕЛ;
сч, сум, кол: ЦЕЛ;
УКАЗ
ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 30)) - 20
КОН;
сум := 0; кол := 0;
ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
ЕСЛИ массив[сч] > 0 ТО
УВЕЛИЧИТЬ(кол); УВЕЛИЧИТЬ(сум, массив[сч])
КОН
КОН
КОН Задание.
Program n1;
const n=8;
var a: array [1..n] of integer;
i,sum: integer;
begin
sum:=0;
for i:=1 to n do
begin
write('введите ',i,' число: ');
readln(a[i]);
end;
writeln('эл. с чет номерами: ');
for i:=1 to n do if i mod 2=0 then write(a[i],' ');
end.
A = "программирование"
one = ""
two = ""
for i in a:
if one != "программ":
one = one + i
else if two != "мир":
two = two + a
//На питоне это выглядело бы так
Ну начну с того что единицы измерения информации делятся как время (Секунды-минуты-часы-дни-месяца-года и т.д.). В единицах измерения информации входят:
1 байт = 8 битов
1 килобайт(кб) = 1024 байта
1 мегабайт(мб) = 1024 килобайта
1 гигабайт(гб) = 1024 мегабайт
1 терабайт(тб) = 1024 гигабайта
Достаточно таки лёгкая тема.