Вопрос по информатике:
Помогите пожалуйста! 1.Дано три положительных числа.Проверить можно ли построить прямоугольный треугольник с заданными сторонами. 2.Проверить делится ли данное число на 13.
- 19.02.2018 13:11
- Информатика
- remove_red_eye 15853
- thumb_up 85
Ответы и объяснения 1
Задача №1 (написанная на паскале)
uses crt;
var
a, b, c: real;
begin
readln (a, b, c);
a:= a*a;
b:= b*b;
c:= c*c;
if (a+b=c) or (b+c=a) or (c+a=b)then writeln ('Mozhno') else writeln('oshipka postroenie');
readkey;
end.
Задача №2.(написанная на паскале)
uses crt;
var
a : integer;
begin
readln (a);
if (a mod 13 =0) then writeln ('da') else writeln ('net');
readkey;
end.
- 20.02.2018 02:41
- thumb_up 45
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.