Информатика | 10 - 11 классы
PascalABC.
NET. Помогите пожалуйста.
Даны 2 числа a и b.
Найти меньшее и определить делится ли оно нацело на 5.
Напишите (отправьте фотографию), что нужно написать в программе PascalABC?
Напишите (отправьте фотографию), что нужно написать в программе PascalABC.
NET, чтобы создать программу
《 Begin1°.
Дана сторона квадрата a.
Найти его периметр P = 4a》.
Даны 2 числа a и b?
Даны 2 числа a и b.
Найти меньшее и определить делится ли оно на цело на 5 .
Паскаль.
Ввели число, выясните , делится ли оно нацело на 3?
Ввели число, выясните , делится ли оно нацело на 3?
Дано число?
Дано число.
Если оно больше 10, то вывести на консоль, если оно меньше 3, увеличить его на 11 и вывести на консоль, в остальных случаях уменьшить на 100.
PascalABC.
Помогите, пожалуйста, решить л?
Помогите, пожалуйста, решить л.
Р. по номером 2 на программе PascalABC.
Net вместе с блок - схемой и объяснением.
ПОЖАЛУЙСТа.
Нарисовать данную картинку в PascalABC?
Нарисовать данную картинку в PascalABC.
NET с помощью модуля graphABC.
Помогите пожалуйста (PascalABC?
Помогите пожалуйста (PascalABC.
NET).
ДАЮ 25 БАЛЛОВ?
ДАЮ 25 БАЛЛОВ!
ВЫПОЛНЯТЬ В PascalABC.
NET! Дано x - шестизначное натуральное число, найти сумму первых 3 цифр и сумму последних 3 цифр.
ПОЖАЛУЙСТА!
ДАЮ 25 БАЛЛОВ?
ДАЮ 25 БАЛЛОВ!
ВЫПОЛНЯТЬ В PascalABC.
NET! задача.
Дано x - трёхзначное число, необходимо найти 2 числа путём циклического сдвига и сумму исходного и полученных чисел.
ПОЖАЛУЙСТА!
Выяснить, упорядочены ли цифры в записи числа по убыванию?
Выяснить, упорядочены ли цифры в записи числа по убыванию.
Написать программу в PascalABC.
NET и нарисовать блок - схему.
Вы открыли страницу вопроса PascalABC?. Он относится к категории Информатика. Уровень сложности вопроса – для учащихся 10 - 11 классов. Удобный и простой интерфейс сайта поможет найти максимально исчерпывающие ответы по интересующей теме. Чтобы получить наиболее развернутый ответ, можно просмотреть другие, похожие вопросы в категории Информатика, воспользовавшись поисковой системой, или ознакомиться с ответами других пользователей. Для расширения границ поиска создайте новый вопрос, используя ключевые слова. Введите его в строку, нажав кнопку вверху.
Var
a, b : integer ;
begin
write('Введите число А ') ;
readln (a) ;
write('Введите число Б ') ;
readln (b) ;
if (a = b) then
writeln ('Числа равны')
else
if (a < ; b) then
begin
if ( a mod 5 = 0) then
writeln ('Число А меньше и делится на 5')
else
writeln('Число А меньше и не делится на 5') ;
end
else
begin
if ( b mod 5 = 0) then
writeln ('Число Б меньше и делится на 5')
else
writeln ('Число Б меньше и не делится на 5') ;
end ;
end.