Правильный ответ на вопрос «Составить программу для Pascal ABC, печатающую значение true, если указанное высказывание является истинным, и false в противном случае, . » по предмету Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант — оцените ответы на похожие вопросы. Но если вдруг и это не помогло — задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Новые вопросы по информатике
Объём видеопамяти составляет 100 Кбайт. Графический режим работает в режиме 640 х200 пикселей. Какое максимальное кол-во цветов может содержать палитра?
Переведите число 202 из восьмеричной системы счисления в десятичную
Переведите величины из одних единиц измерения информации в другие: 1 4 Гбайта=? Кбайт 2 217 Мбайт=? Гбайт 3 13 Мбит=? бит 4 27 Гбит=? бит 5 228 бит=? Мбайт 6 227 Гбит=? Мбайт 7 231 Кбайт=? Мбит
Вводятся 3 числа, вывести на экран нечетные числа pascal
1. Посчитай, сколько бит информации содержит 19 байт 2. Посчитай, сколько байт информации содержат 2 кб 3. Посчитай, сколько байт информации содержит 144 бит
09-03 p значение
Главная » Информатика » Составить программу для Pascal ABC, печатающую значение true, если указанное высказывание является истинным, и false в противном случае, когда данная тройка натуральных чисел a, b, c является тройкой Пифагора, т. е. c^2 = a^2 + b^2.
Источник: abiturient.pro
На помощь.
_____________
Составить программу, печатающую значение true, если указанное высказывание является истинным, и false в противном случае:
1. Сумма цифр данного трехзначного числа N является четным числом.
2. Квадрат заданного трехзначного числа равен кубу суммы цифр этого числа.
3. Треугольник со сторонами a, b, c является равнобедренным.
P. S. программа должна ОБЯЗАТЕЛЬНО работать!
Ответы 2
Program n_1; var x:integer; begin readln(x); x:=(x mod 10) + ((x div 10) mod 10) + ((x div 100) mod 10); if (x mod 2 = 0) then writeln(‘true’) else writeln (‘false’); end. (в программе 2 таких чисел не существует) Program n_2; var x, y:integer; begin readln(x); y:=x*x; x:=(x mod 10) + ((x div 10) mod 10) + ((x div 100) mod 10); x:=x*x*x; if (x=y) then writeln(‘true’) else writeln (‘false’); end.
Program n_3; var a, b, c:integer; begin read(a, b, c); if (a=b) or (b=c) or (a=c) then writeln(‘true’) else writeln (‘false’); end.
Добавить свой ответ Ответить на вопрос
Последние вопросы
Источник: znanija.site
Задание ОГЭ Информатика 20.2 (Python Pascal )
Составить программу, печатающую значение true, если указанное высказывание является истинным, и false – в
Составить программу, печатающую значение true, если указанное высказывание является истинным, и false – в противном случае. Ветвления и циклы не использовать Сумма цифр данного трехзначного числа N является четным числом
Sub Ex_3() Dim c1, c2, c3 As Integer Dim answ As Boolean ‘Число как строка символов, что бы без арифметики Dim CN As String CN = InputBox («Укажите трехзначное число N») c1 = CInt (Mid(CN, 1, 1)) c2 = CInt (Mid(CN, 2, 1)) c3 = CInt (Mid(CN, 3, 1)) answ = ((c1 + c2 + c3) Mod 2) = 0 MsgBox CStr(answ) End Sub
Библиотека Ирины Эланс, основана как общедоступная библиотека в интернете. Онлайн-библиотеке академических ресурсов от Ирины Эланс доверяют студенты со всей России.
Библиотека Ирины Эланс
Полное или частичное копирование материалов разрешается только с указанием активной ссылки на сайт:
Ирина Эланс открыла библиотеку в 2007 году.
Источник: student-files.ru