Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Lusi28
29.12.2020 09:17 •
Информатика
Чим відрізняється інформаційна безпека від комп’ютерної безпеки? (висловіть власні думки)
За матеріалами Інтернету підготуйте 1-2 реальні історії про порушення інформаційної безпеки та наслідки цих дій.
Показать ответ
Ответ:
116541
03.11.2021 01:34
#include <cstdlib>#include <iostream> using namespace std; void MassNullEllement(int *Mass){ int KolEl = 0 ; for(int a=0;a<5;a++){ if(Mass[a]!=0){KolEl++;} } cout<<"amount element not equal zero = "<<KolEl<<"\n"; } int main(int argc, char *argv[]){ int Massiv[5]; for(int b=0;b<5;b++){ cout<<"Enter "<<b<<" element - ";
cin>>Massiv[b]; } MassNullEllement(Massiv); system("PAUSE"); return EXIT_SUCCESS;}
0,0
(0 оценок)
Ответ:
smolich
18.10.2022 09:06
Var
a, b, c, p: real;
a1, b1, c1: real;
a2, b2, c2: real;
function SideLength(a1, a2, b1, b2: real): real;
begin
SideLength := sqrt(sqr(a1 - b1) + sqr(a2 - b2));
end;
begin
writeln('1.Найти сумму трех чисел');
readln(a, b, c);
writeln(a + b + c);
writeln('2.Катеты прямоугольного треугольника известны.Найти гипотенузу.');
readln(a, b);
writeln(sqrt(a * a + b * b));
writeln('3.Найти среднеарифметическое двух чисел.');
readln(a, b);
writeln((a + b) / 2);
writeln('4.Найти длину окружности,если известна площадь круга.');
readln(a);
writeln(sqrt(a / pi) * 2 * pi);
writeln('5.Какой процент составляет число а от числа b.');
readln(a, b);
writeln(a / b * 100);
writeln('6.Найдите площадь треугольника с формулы Герона.');
readln(a, b, c);
p := (a + b + c) / 2;
writeln(sqrt((p - a) * (p - b) * (p - c) * p));
writeln('7.Найдите площадь кольца,если его толщина I см,диаметр внутри круга d см.');
readln(a, b);
c := a + b;
writeln(pi * (c * c - b * b));
writeln('8.Вычислите площадь треугольника заданного координатами вершин.');
readln(a1, a2, b1, b2, c1, c2);
writeln(((a1 - c1) * (b2 - c2) - (a2 - c2) * (b1 - c1)) / 2);
writeln('9.Вычислить длинны сторон треугольника по заданным координатам его вершин.');
a := SideLength(a1, a2, b1, b2);
b := SideLength(c1, c2, b1, b2);
c := SideLength(a1, a2, c1, c2);
writeln(a, ' ', b, ' ', c);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
lphk02
30.12.2020 13:25
1) Написать программу на языке Паскаль вычисления выражения:S = 4f^2-√25+12m №2 Написать программу на языке Паскаль вычисления выражения. В ответе должно быть не только число,...
bringm1
08.10.2021 12:08
Порядок объединения элементов, составляющих систему...
jef15
06.12.2020 10:36
Специальные виды шрифта для фрагментов текста. Варианты ответов:-Специальные стили для абзацев.-Специальные стили для символов.-Специальные размеры для всего текста.-Специальные...
Клевер21
06.02.2023 08:49
Вдвумерном массиве вычислить сумму элементов стоящих на побочной диагонали...
katyastulova23
03.09.2020 11:07
Используя цикл repeat, вывести на экран первые n членов последовательности: 1, 3, 7, 15, 31, 63, (turbo pascal)...
Lubov080301
03.09.2020 11:07
Каковы основные элементы области диаграммы и их назначение?...
yuldumenko
03.09.2020 11:07
Тема: одномерные массивы. в паскале в массиве даны 10 целых чисел. нужно найти сумму четных чисел....
Kulakoff
28.11.2021 04:50
Составьте программу, определяющую номер координатной четверти, в которой находится точка с координатами(х,y). если точка лежит на оси координат или в начале координат, то...
PWBC
28.11.2021 04:50
Составьте программу,определяющую, является ли данное натуральное число простым. желательно с объяснением...
mokhovayaarina
28.11.2021 04:50
Кто знает как решать? для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты. · если произведение второго и четвертого чисел...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
cin>>Massiv[b]; } MassNullEllement(Massiv); system("PAUSE"); return EXIT_SUCCESS;}
a, b, c, p: real;
a1, b1, c1: real;
a2, b2, c2: real;
function SideLength(a1, a2, b1, b2: real): real;
begin
SideLength := sqrt(sqr(a1 - b1) + sqr(a2 - b2));
end;
begin
writeln('1.Найти сумму трех чисел');
readln(a, b, c);
writeln(a + b + c);
writeln('2.Катеты прямоугольного треугольника известны.Найти гипотенузу.');
readln(a, b);
writeln(sqrt(a * a + b * b));
writeln('3.Найти среднеарифметическое двух чисел.');
readln(a, b);
writeln((a + b) / 2);
writeln('4.Найти длину окружности,если известна площадь круга.');
readln(a);
writeln(sqrt(a / pi) * 2 * pi);
writeln('5.Какой процент составляет число а от числа b.');
readln(a, b);
writeln(a / b * 100);
writeln('6.Найдите площадь треугольника с формулы Герона.');
readln(a, b, c);
p := (a + b + c) / 2;
writeln(sqrt((p - a) * (p - b) * (p - c) * p));
writeln('7.Найдите площадь кольца,если его толщина I см,диаметр внутри круга d см.');
readln(a, b);
c := a + b;
writeln(pi * (c * c - b * b));
writeln('8.Вычислите площадь треугольника заданного координатами вершин.');
readln(a1, a2, b1, b2, c1, c2);
writeln(((a1 - c1) * (b2 - c2) - (a2 - c2) * (b1 - c1)) / 2);
writeln('9.Вычислить длинны сторон треугольника по заданным координатам его вершин.');
a := SideLength(a1, a2, b1, b2);
b := SideLength(c1, c2, b1, b2);
c := SideLength(a1, a2, c1, c2);
writeln(a, ' ', b, ' ', c);
end.