Информатика | 5 - 9 классы
Помогите решить задачу по ИВТ на языке паскаль.
Задано 3 числа найти наибольшее из них.
Найти все делители для заданного числа n?
Найти все делители для заданного числа n.
Паскаль.
Помогите решить задачи в паскале?
Помогите решить задачи в паскале.
1)Подсчитать количество предложений в заданном тексте.
2)Найти сумму цифр в целой и в дробной части числа, введенного в виде текстовой строки.
Даны два числа?
Даны два числа.
Найти их наибольший общий делитель.
(Паскаль).
Задача по программированию 8 класс?
Задача по программированию 8 класс.
Решите как положено через паскаль!
Дано трехзначное число.
Найти число, полученное при перестановке первой и второй цифр заданного числа.
Помогите ивт паскаль abc?
Помогите ивт паскаль abc.
Надо составить программу в паскале, в которой надо найти процент от заданного числа?
Надо составить программу в паскале, в которой надо найти процент от заданного числа.
Даны 2 числа ?
Даны 2 числа .
Найти наибольшее из них .
( разработка программ на языке Паскаль , с использованием оператора ветвления и логических операций ).
Задается массив из n натуральных чисел?
Задается массив из n натуральных чисел.
Найти сумму чисел в которых цифры упорядочены по возрастанию.
Язык - паскаль.
Задачу сделать надо через функцию.
ИВТ. Задание номер 16, 18?
ИВТ. Задание номер 16, 18.
Через паскаль.
Найти наибольший из элементов , кратных 3, заданного целочисленного массива X = (x1, x2, ?
Найти наибольший из элементов , кратных 3, заданного целочисленного массива X = (x1, x2, .
XN). (Паскаль).
Если вам необходимо получить ответ на вопрос Помогите решить задачу по ИВТ на языке паскаль?, относящийся к уровню подготовки учащихся 5 - 9 классов, вы открыли нужную страницу. В категории Информатика вы также найдете ответы на похожие вопросы по интересующей теме, с помощью автоматического «умного» поиска. Если после ознакомления со всеми вариантами ответа у вас остались сомнения, или полученная информация не полностью освещает тематику, создайте свой вопрос с помощью кнопки, которая находится вверху страницы, или обсудите вопрос с посетителями этой страницы.
Var
a1, a2, a3, max : integer ; begin write ('Введите три числа : ') ; readln (a1, a2, a3) ;
if a1 > ; = a2
then max : = a1
else max : = a2 ; if a3 > ; max
then max : = a3 ;
writeln ('Наибольшее из них : ', max) ;
readln
end.