В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
nikiraspru
nikiraspru
08.01.2021 06:28 •  Информатика

Нужна Задания для тренировки:

Таблицы. (Построить.)

A & B ∨ A ̅ & B

A∨В ̅ &С

А ∨В ̅&(A ̅∨С)



4) Для каких из указанных значений числа X истинно высказывание:

(X > 5) ИЛИ ((X < 3) И (X > 1))?

1,2,3,5,10

5) Для какого из приведённых имён истинно высказывание: (Первая буква гласная) И НЕ(Третья буква согласная)?

1) Елена

2) Полина

3) Кристина

4) Анна

6) Для каких из указанных значений числа X истинно высказывание:

(X > 10) И ((X < 4) ИЛИ (X > 15))?

5, 10, 15, 20, 25

Показать ответ
Ответ:
барни51
барни51
23.12.2022 21:48

Объяснение:

// Возведение в степень

program stepen;

var

p,i,n, a:integer;

begin

write('введите число и степень');

readln(a,n);

p:=1;

for i:=1 to n do p:=p*a;

writeln('Число ',a, ' в степени ',n,' = ',p);

readln;

end.

//Сумма нечетных цифр числа

program project1;

var

a, b, s : integer;

begin

s := 0;

write('введите число: ');

readln(a);

while a <> 0 do

begin

b := a mod 10;

if b mod 2 <> 0 then s := s + b;

a := a div 10

end;

writeln('сумма нечетных цифр: ', s);

readln;

end.  

//Сумма четных чисел до n

program summach;

var

S,n,i:integer;

begin

Write('Введите n=');

readln(n);

if n mod 2<>0 then n:=n-1;

n:=n div 2;

s:=0;

for i:=1 to n do

s:=s+2*i;

writeln('s=',s);

readln;

end.    

//

//   сумма четных с циклом repeat

program summach1;

Write('Введите n=');

readln(n);

if n mod 2<>0 then n:=n-1;

s:=0;i:=1;

repeat

s:=s+2*i;

i:=i+1;

until 2*i>n ;

writeln('n=',n);

writeln('s=',s);

readln;            

0,0(0 оценок)
Ответ:
лох252
лох252
17.04.2023 13:42
Var
    n, k, i, imax, j: integer;
    a: array[1..100]of integer;

begin
    randomize;
    n := random(30) + 10;
    for i := 1 to n do
    begin
        a[i] := Random(30);
        write(a[i], ' ');
    end;
    writeln();
   
    {сортировочка}
    for i := 1 to n - 1 do
    begin
        imax := i;
        for j := i + 1 to n do
            if a[j] > a[imax] then
                imax := j;
        k := a[i];
        a[i] := a[imax];
        a[imax] := k;
    end;
   
    for i := 1 to n do
        write(a[i], ' ');
   
    k := 0;
    for i := 2 to n - 1 do
        if (a[i] <> a[i - 1]) and (a[i] <> a[i + 1]) then
            k := k + 1;
   
    if a[1] <> a[2] then k := k + 1;
    if a[n] <> a[n - 1] then k := k + 1;
   
    writeln();
    writeln('No doubles - ', k);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота