4 года назад

Фон презентации на военную тему.Open Office

Знания

Информатика

1 ответ:

elenshim [2.1K]4 года назад

0 0

Такой подойдёт ? ...........

Читайте также

Что такое разветвляющийся алгоритм

Малина88

Разветвляющий алгоритм содержит блок проверки условия. В зависимости от результата проверки условия выполняется та или иная последовательность операций,называется ветвью. При этом форма разветвления может быть полной или сокращёной.

0 0

4 года назад

Один символ алфавита несёт 3 бита.Сколько символов в алфовите.СРОЧНО пожалуйста

Елена Валерьевна ... [75]

В русском алфавите 33 букв (символа), значит весь алфавит весит 33 * 3 = 99 бит это примерно 12,3 байта.

0 0

4 года назад

Добрые люди, помогите, пожалуйста, сделать задачи по информатике. 1. Напишите программу, которая в последовательности натуральн

Байкова

Решение 1-й задачи:
//PascalABC.Net
//NaaMan
var
    i, n : integer;
begin
    i := 0;
    repeat
        write('Введите число > ');
        readln(n);
        if (n > 0) then
            if (n mod 2 = 0) then
                if (n mod 3 = 0) then i := i + 1;
    until (n = 0);
    writeln('Количество чётных чисел, кратных 3: ', i)
end.

Для решения второй задачи нужно заменить (n mod 2 = 0) на (n mod 2 = 1) и (n mod 3 = 0) на (n mod 7 = 0).

0 0

4 года назад

Сформировать массив из 20 элементов.Вывести на экран.Положительные элементы умножить на 8.Отрицательные разделить на 3.Вывести н

Галина 1996

Готово...............

0 0

4 года назад

Информатика, 9 класс, Паскаль авс Найти сумму всех четных элементов массива из 10 целых чисел ,стоящих на четных местах.

OlesyaZu [4]

Var
a: array[1..10] of integer;
s, i: integer;
begin
for i:=1 to 10 do
begin
a[i]:= random(50)+1;
if (a[i] mod 2 = 0) and (i mod 2 = 0) then
s:=s+a[i];
writeln(a[i])
end;
writeln('Сумма: ', s)
<span>end.</span>

0 0

4 года назад