Опубликовано 5 лет назад по предмету Информатика от d2invoker

Здравствуйте, мне нужна помошь в PascalABC нужно составить задачи по заданию ниже.

Ниже будут задания, очень прошу помочь. И ещё, прошу, если не трудно при отсылании примеров желательно над каждым примером написать задание) чтобы было понятно что к чему относится. Заранее благодарю Вас!

-----------------------------------
1. Вычислить периметр и площадь прямоугольного треугольника по длинам двух катетов. 2. Ввести с клавиатуры трехзначное число и найти сумму всех цифр и определить, не превосходит ли она заданное число N. 3. Даны переменные x, y. Выяснить, принадлежит ли точка с координатами (x, y) заштрихованной фигуре (рис. 3)(Рисунок вложил).

Ответ

Ответ дан ad1997ya

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 (x<>0) do
begin
s:=s+x mod 10;
x:=x div 10;
end;
if (s<N) then
writeln ('s<N, because ',s,'<',N)
else
writeln (s,' do not <',N);
readln ();
end.
1. Ответ
  
  Ответ дан d2invoker
  
  Спасибо!
2. Ответ
  
  Ответ дан d2invoker
  
  PascalABC.
  1. С клавиатуры вводятся целые положительные числа. Подсчитать количество четных чисел и найти их сумму.
  2. Ввести с клавиатуры число и подсчитать сколько в нем цифр равных последней.
  Заранее спасибо!

Самые новые вопросы

Другие предметы - 5 лет назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Другие предметы - 5 лет назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

История - 5 лет назад

Кто такой мильтиад и какова его роль в победе над персами?

История - 5 лет назад

Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией

География - 5 лет назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают