сервис вопросов и ответов1)в free pascal составить программу нахождения суммы цифр четырехзначного числа 2) составить программу: если существует треугольник,со сторонами a,b,c ,
10-11 класс|
|
то напечатать "да",а иначе напечатать "нет"
Martlove
28 нояб. 2016 г., 2:58:49 (7 лет назад)
Aikotolekova
28 нояб. 2016 г., 5:27:05 (7 лет назад)
var sum, k, i: integer;
begin
readln (k);
while k > 0 do
begin
sum := sum + k mod 10; //прибавляем к сумме последнюю цифру в числе k
k := k div 10; //убираем из k эту последнюю цифру
end;
writeln(sum);
end.
var a, b, c: integer;
begin
readln (a);
readln (b);
readln (c);
if (((a + b) > c) and ((a + c) > b) and ((c + b) > a)) then //у треугольника сумма двух сторон больше третьей стороны
writeln('да')
else writeln ('нет');
end.
Ответить
Другие вопросы из категории
В программе ПаскальАВС. Очень прошу помочь.
В целочисленном массиве Х(-18; -25;
-13; 7; 9; -16; -4; 8; 1; -7; 2; 12; 15) Найти в исходном массиве количество нечетных элементов, имеющих четные
индексы. Найти первый положительный элемент, затем расставить элементы, стоящие
правее этого элемента в убывающем порядке.
Напишите программу, в которой бы пользователь мог ввести название города-юбиляра (N) и количество исполнившихся ему лет (Х). После нажатия кнопки ОК
должно выйти окно с поздравлением: “Поздравляем жителей города N с Х-летием!!!”.
нужно составить ФОРМУЛУ, которая поможет определить победителя. см. Вложения.
То есть нужно что бы у одного человека была самая большая сумма результатов и самый маленький вес, я так понимаю. По моим расчетам это Михальчук. Но в ответе В ЯЧЕЙКЕ должна появиться ФАМИЛИЯ. Не могу сделать( Хелп, ребят.
Это уже чистый Exel. Но я что то в его формулах вся заблудилась
Читайте также
1)составьте программу вычисления суммы чисел в диапазоне от 45 до 115 45+....+115
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE
1) Написать программу для вычисления суммы цифр пятизначного числа , введенного с клавиатура
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу
Дана непустая последовательность натуральных чисел, за которой следует 0. Составьте программу нахождения суммы чисел этой
последовательности.Запустите программу на выполнение...(ПО ПАСКАЛЮ..)
Вы находитесь на странице вопроса "1)в free pascal составить программу нахождения суммы цифр четырехзначного числа 2) составить программу: если существует треугольник,со сторонами a,b,c ,", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.