Задать вопрос
13 сентября, 01:16

Вариант № 2 1) Подсчитать сумму квадратов всех отрицательных и четных чисел из 10 вводимых.

2) Даны натуральные числа от 35 до 87. Найти и напечатать те из них, которые при делении на 7 дают остаток 1, 2 или 5.

3) Дано целое число а и натуральное (целое неотрицательное) число n. Вычислить а в степени n, используя в программе лишь операцию умножения.

4) Введите последовательность из n целых чисел. Найти наибольшее из всех отрицательных чисел. Вывести его значение и порядковый номер.

5) Вычислите: 99-97+95-93+91-89 + ... + 7-5+3-1.

6) Доказать (путем перебора возможных значений), что для любых величин А, В, С типа Boolean следующая пара логических выражений имеет одинаковые значения (эквивалентны) : A OR (B AND C) и (A OR B) AND (A OR C).

+1
Ответы (1)
  1. 13 сентября, 04:03
    0
    В паскале

    1) program one;

    uses crt;

    var a:array [1 ... 10] of integer;

    x: real; i:integer;

    begin

    clrscr;

    x:=0;

    for i:=1 to 10 do

    readln (A[i]) ;

    for i:=1 to 10 do

    begin

    if (A[i]<0) or (A[i] mod 2=0) then

    x:=x+Sqr (A[i]) ;

    end;

    writeln;

    write (x) ;

    end.

    2)

    program two;

    uses crt;

    var a:array [1 ... 52] of integer;

    x, i: integer;

    begin

    clrscr;

    x:=34;

    for i:=1 to 52 do

    begin

    A[i]:=1+x;

    x:=x+1;

    if (A[i] mod 7 = 1) or (A[i] mod 7 = 2) or (A[i] mod 7 = 5)

    then writeln (A[i]) ;

    end;

    end.

    3)

    Program three;

    Uses crt;

    var n, x:integer; a, y:real;

    begin

    Clrscr;

    readln (a, n) ;

    for x:=1 to n do

    y:=x*a;

    writeln (y) ;

    end.

    4)

    Program four;

    Uses crt;

    var A:array [1 ... 100] of integer;

    n, i, max, x:integer;

    begin

    clrscr;

    writeln ('vvedite kol-vo elementov') ;

    readln (n) ;

    writeln ('Vvedite elementy') ;

    for i:=1 to n do

    read (A[i]) ;

    for i:=1 to n do

    begin

    max:=A[1];

    if (A[i] A[x])

    then max:=A[i];

    x:=i;

    end;

    writeln ('Naib', max,'nomer', x) ;

    end.

    5)

    Program abc;

    Uses crt;

    var S, a, b:integer;

    begin

    clrscr;

    S:=0;

    a:=1;

    b:=3;

    while a<98 do

    begin

    while b<100 do

    begin

    S:=S+b-a;

    a:=a+4;

    b:=b+4;

    end;

    end;

    writeln (s) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Вариант № 2 1) Подсчитать сумму квадратов всех отрицательных и четных чисел из 10 вводимых. 2) Даны натуральные числа от 35 до 87. Найти и ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Задача 1 - Дано целое число. Если оно положительное, вывести " Число положительное ", если отрицательное вывести "Число отрицательное ", если равно 0 - "Число равно нулю" задача 2 - дано целое число.
Ответы (1)
Задание 1. Ввести номер месяца и вывести количество дней в нем, а также число ошибок при вводе. Пример: Введите номер месяца: -2 Введите номер месяца: 11 В этом месяце 30 дней. Вы вводили неверно 1 раз. Задание 2.
Ответы (1)
Почему пишет, что операция '=' не применима к типу boolean в программе? Ошибка здесь: if ((x=1) or (y=1)) then Вся программа: program pr1; function _Xor (x, y:boolean) : boolean; begin if ((x=1) or (y=1)) then _Xor:=1 else _Xor:=0; end;
Ответы (2)
Это цикл for: 1) даны натуральные числа X и Y. вычислить X*Y, пользуясь только оперцией сложения. 2) даны натуральные числа X и Y. вычислить X^Y 3) дано натуральное число N. найти сумму S=1+1/2+1/3 + ... + 1/N. 4) дано натуральное число N и число Х.
Ответы (1)
1) Составить массив из 10 целых чисел, вывести его на экран и подсчитать количество элементов массива, значения которых не превышают трех 2) Составить массив из 10 целых чисел и вывести его на экран, подсчитать сумму отрицательных и положительных
Ответы (1)