М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
эрика95
эрика95
07.02.2020 13:51 •  Информатика

Складіть програму для знаходження суми S=5+6+7+8 за до оператора циклу

👇
Ответ:
masha1248
masha1248
07.02.2020

Free Pascal

Объяснение:

var

 i, s : integer;

begin

 s := 0;

 for i := 5 to 8 do

   s := s + i;

 writeln('S=', s);

end.

4,6(83 оценок)
Открыть все ответы
Ответ:
akabakova56gmailcom
akabakova56gmailcom
07.02.2020

Задача 1:

#include <iostream>

int main()

{

double x, y;

std::cin >> x;

if (x >= 2) y = sqrt(3 * x + 4);

else y = x * x * x * x * x - abs(4 * x);

std::cout << y;

return 0;

}

Задача 2:

#include <iostream>

int main()

{

double x, y;

std::cin >> x;

y = (x*x*(2*x+8))/(3+2*x);

std::cout << y;

return 0;

}

Задача 3:

#include <iostream>

int main()

{

double z,b;

std::cin >> b;

if (b > 7) z = b * b * b;

else z = b - 9;

std::cout << z;

return 0;

}

4,6(15 оценок)
Ответ:
moonmyrreg
moonmyrreg
07.02.2020
DATA 101,98,100,108,97,106,99,100,112,96,107,98
DIM a(1 TO 12) AS INTEGER
DIM b(1 TO 12) AS INTEGER, c(1 TO 12) AS INTEGER
DIM i AS INTEGER, ib AS INTEGER, ic AS INTEGER
CLS
ib = 0: ic = 0
FOR i = 1 TO 12
        READ a(i)
        SELECT CASE a(i)
        CASE 100
                ib = ib + 1
                b(ib) = i
        CASE IS > 100
                ic = ic + 1
                c(ic) = i
        END SELECT
NEXT i

PRINT "План (100%) в месяцах: ";
FOR i = 1 TO ib
        PRINT b(i);
NEXT i
PRINT
PRINT "перевыполнение плана в месяцах ";
FOR i = 1 TO ic
        PRINT c(i);
NEXT i
END

Результат выполнения программы:
План (100%) в месяцах:  3  8
перевыполнение плана в месяцах  1  4  6  9  11
4,7(26 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ