1)в free pascal составить программу нахождения суммы цифр четырехзначного числа 2) составить программу: если существует треугольник,со сторонами a,b,c ,
10-11 класс
|
то напечатать "да",а иначе напечатать "нет"
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 с Х-летием!!!”.
То есть нужно что бы у одного человека была самая большая сумма результатов и самый маленький вес, я так понимаю. По моим расчетам это Михальчук. Но в ответе В ЯЧЕЙКЕ должна появиться ФАМИЛИЯ. Не могу сделать( Хелп, ребят.
Это уже чистый Exel. Но я что то в его формулах вся заблудилась
Читайте также
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу
последовательности.Запустите программу на выполнение...(ПО ПАСКАЛЮ..)