Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
NastushaJol
22.09.2022 13:28 •
Информатика
Упростить логическое выражение (с решением)
Показать ответ
Ответ:
kat19810
27.03.2022 14:27
Uses Graphabc;
begin
SetWindowWidth(800);
SetWindowHeight(900);
SetPenWidth(1);
PutPixel(400, 400, clred);
Line(0, 150, 100, 150);
Line(0, 150, 100, 200);
Line(100, 150, 150, 100);
Line(100, 50, 200, 150);
Line(100, 50, 200, 0);
Line(200, 0, 250, 50);
Line(250, 50, 300, 0);
Line(300, 0, 300, 100);
Line(300, 100, 350, 100);
Line(350, 100, 250, 150);
Line(250, 150, 300, 350);
Line(300, 350, 400, 400);
Line(50, 300, 100, 200);
Line(50, 300, 100, 250);
Line(100, 250, 150, 550);
Line(150, 550, 300, 650);
Line(400, 400, 500, 250);
Line(500, 250, 650, 250);
Line(650, 250, 750, 450);
Line(750, 450, 650, 400);
Line(650, 400, 550, 500);
Line(550, 500, 650, 450);
Line(750, 600, 650, 450);
Line(600, 550, 750, 600);
Line(700, 700, 600, 550);
Line(500, 600, 700, 700);
Line(400, 650, 500, 600);
Line(400, 800, 400, 650);
Line(450, 850, 400, 800);
Line(250, 850, 450, 850);
Line(350, 800, 250, 850);
Line(300, 650, 350, 800);
end.
0,0
(0 оценок)
Ответ:
vvndas1
20.10.2021 09:57
Первая программа:
Var S,A:integer;
Begin
S:=0;
For A:= 5 to 45 do
if A mod 4 = 0 then S:=S+A;
WriteLn('S = ',S);
End.
Результат работы программы:
S = 260
Вторая программа:
Var A,S:integer;
Begin
S:=0;
For A:= 79 to 205 do
if A mod 2 <> 0 then S:=S+A;
WriteLn('S = ',S);
End.
Результат работы программы:
S = 9088
Третья программа:
Var
x:byte;
Begin
WriteLn('f(x) = x^2');
For x:= 1 to 20 do
WriteLn('f(',x/2:3,') = ',Sqr(x/2))
End.
Результат работы программы:
f(x) = x^2
f(0.5) = 0.25
f( 1) = 1
f(1.5) = 2.25
f( 2) = 4
f(2.5) = 6.25
f( 3) = 9
f(3.5) = 12.25
f( 4) = 16
f(4.5) = 20.25
f( 5) = 25
f(5.5) = 30.25
f( 6) = 36
f(6.5) = 42.25
f( 7) = 49
f(7.5) = 56.25
f( 8) = 64
f(8.5) = 72.25
f( 9) = 81
f(9.5) = 90.25
f( 10) = 100
0,0
(0 оценок)
Популярные вопросы: Информатика
dimanyapr
23.08.2022 17:45
Дана схема «отношения». заполни пропуск, выбрав верный ответ. объект, субъект, дальний объект, ниодин из выше упомянутых...
умница2423
01.03.2020 23:44
Решить по информатике вариант 6 ( 1 и 2 ) заранее : )...
Kotik5l6
14.10.2021 08:47
Растровое изображение, в котором использовалось 8 цветов, было передано в город а по каналу связи за 30 секунд. затем в этом изображении изменили количество цветов в палитре и передали...
misspolina967
31.03.2023 06:24
ВЕДИТЕ СЛЕДУЮЩИЙ ТЕКСТ САМА БЛЬШАЯ ПУСТЬНЯ ЭТО САХАРАЕЕ ПРОТЯЖЕННОСТЬ БОЛЕ 5630 КМ ПЛОЩАД САХАРЫПРИБЛИЗТЕЛЬНО РАВНА ПЛОЩАДИ США ЭТА ПУСТЫНЯ ПРСТИРАЕТС НА ТЕРРИТОРИИ НЕСКЛЬКИХ ГОСУАРСТВ...
КсюшаАнтропова
16.01.2022 10:03
Написать этому коду(ниже) блок-схему, метод(ход решения, можно кратко) #include using namespace std;bool check(string &s){ for(auto &i : s) if(!(i = 0 && i = 9 ))...
alyakozlova22
30.06.2021 07:36
Сумма внешних углов треугольника а б ц при вершинах a и b взятых по одному для каждой вершины равна 240 градусов найдите угол c...
Камелек
12.09.2020 01:36
Начертите прямоугольники в тетради и найдите их площадь. 1) основание 8 см, высота 3 см . 2) основание 10 см, высота 1 см. 3) основание 7 см, высота 2 см . как вычисляется площадь...
Kalimovnadir
07.10.2021 01:31
1)соседние природные зоны тундры 2)климатические условия природной зоны . . отвечать четко и только на вопрос ....
алекссоколевский
31.05.2023 02:50
Кто сможет сделать по полану который дан на фотке по стране сша. нужно каждый 9 пунктов 10 и 11 пункт это разделение 9 пункта. все пункты разделены под пункты что нужно сделать в...
basik100grn
26.01.2022 18:14
Тонкий лід витримує тиск 10.кпа чи пройде по цьому відео лижник масою 60 кг? довжина лижі 1,8 м ширина 8 см чи можна пройти по такому льоді без лиж якщо площа черевика 200 см квадратних...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
SetWindowWidth(800);
SetWindowHeight(900);
SetPenWidth(1);
PutPixel(400, 400, clred);
Line(0, 150, 100, 150);
Line(0, 150, 100, 200);
Line(100, 150, 150, 100);
Line(100, 50, 200, 150);
Line(100, 50, 200, 0);
Line(200, 0, 250, 50);
Line(250, 50, 300, 0);
Line(300, 0, 300, 100);
Line(300, 100, 350, 100);
Line(350, 100, 250, 150);
Line(250, 150, 300, 350);
Line(300, 350, 400, 400);
Line(50, 300, 100, 200);
Line(50, 300, 100, 250);
Line(100, 250, 150, 550);
Line(150, 550, 300, 650);
Line(400, 400, 500, 250);
Line(500, 250, 650, 250);
Line(650, 250, 750, 450);
Line(750, 450, 650, 400);
Line(650, 400, 550, 500);
Line(550, 500, 650, 450);
Line(750, 600, 650, 450);
Line(600, 550, 750, 600);
Line(700, 700, 600, 550);
Line(500, 600, 700, 700);
Line(400, 650, 500, 600);
Line(400, 800, 400, 650);
Line(450, 850, 400, 800);
Line(250, 850, 450, 850);
Line(350, 800, 250, 850);
Line(300, 650, 350, 800);
end.
Var S,A:integer;
Begin
S:=0;
For A:= 5 to 45 do
if A mod 4 = 0 then S:=S+A;
WriteLn('S = ',S);
End.
Результат работы программы:
S = 260
Вторая программа:
Var A,S:integer;
Begin
S:=0;
For A:= 79 to 205 do
if A mod 2 <> 0 then S:=S+A;
WriteLn('S = ',S);
End.
Результат работы программы:
S = 9088
Третья программа:
Var
x:byte;
Begin
WriteLn('f(x) = x^2');
For x:= 1 to 20 do
WriteLn('f(',x/2:3,') = ',Sqr(x/2))
End.
Результат работы программы:
f(x) = x^2
f(0.5) = 0.25
f( 1) = 1
f(1.5) = 2.25
f( 2) = 4
f(2.5) = 6.25
f( 3) = 9
f(3.5) = 12.25
f( 4) = 16
f(4.5) = 20.25
f( 5) = 25
f(5.5) = 30.25
f( 6) = 36
f(6.5) = 42.25
f( 7) = 49
f(7.5) = 56.25
f( 8) = 64
f(8.5) = 72.25
f( 9) = 81
f(9.5) = 90.25
f( 10) = 100