Var a:array [1..10] of integer; i,k1,k2:integer; begin for i:= 1 to 10 do a[i]:= Random(20,100); writeln(a); for i:=1 to 10 do if a[i] mod 2 = 0 then k1:=k1+1 else k2:=k2+1; writeln('Чётных элементов: ',k1); writeln('Нечётных элементов: ',k2) end.
os2854
17.04.2020
Сочетание Ctrl + --> это прыжок на начало следующего слова. Сочетание Ctrl + Del это удалить часть слова от курсора до пробела. Если курсор стоит перед 1 буквой - удалится всё слово. 1) Нажимаем 2 раза Ctrl + --> и попадаем на скобку "(". 2) Нажимаем 6 раз Ctrl + Del и удаляем: скобку "(", 4 слова в скобках, и скобку ")". 3) Получили "словможно". Теперь нужно нажать пробел, чтобы разделить слова: "слов можно" ответ: 3) 1 клавишу и 8 сочетаний. Как вы за компьютером работаете, если MS Word не знаете?
Дмитрий_Евлампиев518
17.04.2020
Когда мы копируем рисунок в буфер, то он определенного размера. Создадим второго слона. Для этого надо выполнить все 4 команды: 1,2,3,4. Второй слон стал на 80% меньше первого. Создадим третьего слона. Если мы сейчас снова вставим слона из буфера (команда 3), то вставится первый слон, и команду 4 придется делать 2 раза, чтобы он стал на 80% меньше, чем второй слон. Поэтому для третьего слона нужно выделить второго и опять проделать все 4 команды: 1,2,3,4. Чтобы получить еще 6 слонов, нужно эти команды повторить 6 раз. ответ: В) повторить (1,2,3,4; 6)
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Заполните массив случайными числами в диапазоне от 20 до 100 и подсчитайте отдельно число элементов с четными и нечетными значениями паскаль abcnet
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(20,100);
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k1:=k1+1
else k2:=k2+1;
writeln('Чётных элементов: ',k1);
writeln('Нечётных элементов: ',k2)
end.