М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Егор02121
Егор02121
30.07.2021 01:54 •  Информатика

Найти все трёхзначные числа которые при делении на 31 в остатке 25

👇
Ответ:
marinka713
marinka713
30.07.2021
Begin
for var i:=100 to 999 do  
if (i mod 31 = 25) then write(i+', '); 
end.

118, 149, 180, 211, 242, 273, 304, 335, 366, 397, 428, 459, 490, 521, 552, 583, 614, 645, 676, 707, 738, 769, 800, 831, 862, 893, 924, 955, 986
4,6(3 оценок)
Открыть все ответы
Ответ:
spartanash
spartanash
30.07.2021
Var       
i, a, b, c: integer;

function check_is(a, b, c: integer):
 boolean;
begin     
 if a >= b + c then check_is := false
else        if b >= a + c then
 check_is := false else     
  if c >= a + b then check_is := false else     
         check_is := true;           
       end;
procedure check_how(a, b, c: integer);begin 
     if ((a = b) and (b = c) and (a = c)) then writeln('равносторонний') else   
    if ((a = b) or (b = c) or (a = c)) then writeln('равнобедренный') else              writeln('разносторонний');     
  end;

begin     
 writeln('Введите стороны треугольника');   
    read(a, b, c);   
    if check_is(a, b, c) then check_how(a, b, c) else writeln('Нет такого треугольника!');          
   end.
4,6(95 оценок)
Ответ:
armenchik2007
armenchik2007
30.07.2021

var a,b,c,z:integer;

begin

readln(a, b, c);

z:=0;

if (a > b) and (a > c) then begin

   z:= b+c;

   if a >= z then

       writeln('Это не треугольник')

   else write('Это разностороний треугольник');

end

else if (b > a) and (b > c) then begin

   z:= a+c;

   if a >= z then

       writeln('Это не треугольник')

   else write('Это разностороний треугольник');

end

else if (c > a) and (c > b) then begin

   z:= b+a;

   if a >= z then

       writeln('Это не треугольник')

   else write('Это разностороний треугольник')

end

else if (a = b) and (a = c) then

   write('Это равностороний треугольник')

else write('Это равнобедренный треугольник');

end.

Объяснение:

4,5(36 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ