Ответы и решения

1)в free pascal составить программу нахождения суммы цифр четырехзначного числа 2)...

0 голосов
50 просмотров

1)в free pascal составить программу нахождения суммы цифр четырехзначного числа 2) составить программу: если существует треугольник,со сторонами a,b,c , то напечатать "да",а иначе напечатать "нет"


Информатика (12 баллов) | 50 просмотров
Дан 1 ответ
0 голосов

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.

 

Начинающий (300 баллов)
10,984,878 вопросов
13,471,016 ответов
8,518,553 комментариев
4,909,216 пользователей