Вопрос по информатике:
Здравствуйте, мне нужна помошь в PascalABC нужно составить задачи по заданию ниже.
Ниже будут задания, очень прошу помочь. И ещё, прошу, если не трудно при отсылании примеров желательно над каждым примером написать задание) чтобы было понятно что к чему относится. Заранее благодарю Вас!
-----------------------------------
1. Вычислить периметр и площадь прямоугольного треугольника по длинам двух катетов.2. Ввести с клавиатуры трехзначное число и найти сумму всех цифр и определить, не превосходит ли она заданное число N.3. Даны переменные x, y. Выяснить, принадлежит ли точка с координатами (x, y) заштрихованной фигуре (рис. 3)(Рисунок вложил).
- 21.08.2015 18:32
- Информатика
- remove_red_eye 14592
- thumb_up 18
Ответы и объяснения 1
Program p_1;
uses crt;
var
a,b,c,P,S: real;
begin
clrscr;
write ('a=');
readln (a);
write ('b=');
readln (b);
c:=sqrt(sqr(a)+sqr(b));
P:=a+b+c;
S:=a*b/2;
writeln ('P=',P:5:2);
writeln ('S=',S:5:2);
readln ();
end.
program p_2;
uses crt;
var
x,s,N: integer;
begin
clrscr;
read (x,N);
s:=0;
while (x0) do
begin
s:=s+x mod 10;
x:=x div 10;
end;
if (s
writeln (s,' do not <',N);
readln ();
end.
- 22.08.2015 02:50
- thumb_up 27
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.