Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
6frm129
03.12.2021 11:26 •
Информатика
Программа которая определяет существование четырехугольнина по градусной мере его углов водимых с клавиатуры и выводится сообщение об этом сумма углов 360 градусов
Показать ответ
Ответ:
гость162
08.10.2020 07:52
//Язык Pascal
Program Test;
const Max = 360;
var Elements: array[1..4] of real; Sum: real;
Begin
Sum := 0;
for var i:= 1 to 4 do
begin
Write('Введите ', i, ' угол: ');
Readln(Elements[i]);
Sum := Sum + Elements[i];
end;
if (Sum = Max) then
begin
Writeln();
Writeln('Существует!');
end
else
begin
Writeln();
Writeln('Не существует!');
end;
End.
0,0
(0 оценок)
Ответ:
igrotron
08.10.2020 07:52
Язык C++.
#include <iostream>
using namespace std;
int main(){
int a,b,c,d;
cout << "Введите градусную меру четырех углов: " << endl;
cin >> a >> b >> c >> d;
if (a+b+c+d == 360)
cout << "Существует." << endl;
else
cout << "Не существует." << endl;
}
0,0
(0 оценок)
Популярные вопросы: Информатика
Кабасена05
06.07.2021 03:27
Текст занимает полных 5 страниц. на каждой размещается 40 строк по 70 символовв строке. какой объём памяти в кб займет этот текст?...
kris0287
04.09.2020 14:58
Внекоторой стране автомобильный номер длиной 7 символов составляется из заглавных букв(всего используется 30 букв) и десятичных цифр в любом порядке .каждый символ кодируется...
albinashav
02.07.2020 02:53
Синформатикой! алфавит некоторого языка состоит из 24 символов. при письме используют пробелы, точки, запятые. каков информационный вес одного символа? каков размер сообщения...
marinadoren
23.06.2021 15:16
Ученики школы № 100 любят загадывать загадки. один ученик задумал два целых числа от 0 до 1000 и сообщил вам их сумму и их произведение. напишите программу, угадывающую задуманные...
denis20043601
28.12.2021 21:52
Ученик набирает сочинение по лит-ре на коппьютере, используя кодировку koi-8. определите какой объем памяти в байтах займет эта фраза: пушкин - это наше все! . каждый символ...
05DKuzmin
21.09.2020 09:58
Новшества компьютера 1,2,3 и 4 поколения...
Rokwe
21.09.2020 09:58
Pascalabcnet дан набор из n целых положительных чисел. для каждого числа вычисляется сумма двух последних цифр в его десятичной записи (для однозначных чисел предпоследняя...
Dfhlp
10.09.2022 12:29
Укажи, в каком виде представлена информация в следующем примере: радиопередача утренний экспресс для ответа используй данные ниже слова: обонятельная визуальная тактильная...
Zabon
31.10.2021 13:47
Вследующих примерах укажи источник и приемник информации: мальчик просыпается от звонка будильника источник — , приемник — . регулировщик потоками машин и пешеходов источник...
Bordeaux
08.03.2020 02:53
Напишите программу, находящую сумму 2 чисел, переданных в качестве входных данных.(на любом языке) входные данные: на стандартный ввод два целых числа a,b (0≤a,b≤9)a,b (0≤a,b≤9)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Program Test;
const Max = 360;
var Elements: array[1..4] of real; Sum: real;
Begin
Sum := 0;
for var i:= 1 to 4 do
begin
Write('Введите ', i, ' угол: ');
Readln(Elements[i]);
Sum := Sum + Elements[i];
end;
if (Sum = Max) then
begin
Writeln();
Writeln('Существует!');
end
else
begin
Writeln();
Writeln('Не существует!');
end;
End.
#include <iostream>
using namespace std;
int main(){
int a,b,c,d;
cout << "Введите градусную меру четырех углов: " << endl;
cin >> a >> b >> c >> d;
if (a+b+c+d == 360)
cout << "Существует." << endl;
else
cout << "Не существует." << endl;
}