1 год назад

Дан массив состоящий из 10 целых чисел. Вывести на экран все двузначные элементы массива

1 ответ:

0 0

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ReadArrInteger('Введите массив', 10);
a.Where(t -> (abs(t) > 9) and (abs(t) < 100)).Println();
end.

Читайте также

Почему необходимо сжимать звуковые и видеофайлы при передаче по сети Интернет?

Squ-chan [7]

Что бы они весили меньше и собственно скачивались быстрее

0 0

4 года назад

Составить программу решения задачи: Ввести два числа . Если первое число больше второго, то найти их разность, иначе найти их су

Никола777 [21]

var a, b, c:real;
begin
writeln('введите два числа');
readln(a,b);
c:=a+b;
if a> b then c:=a-b;
writeln(c:7:2);
end.

{2 способ}
var a, b, c:real;
begin
writeln('введите два числа');
readln(a,b);
if a> b then c:=a-b
else c:=a+b;
writeln(c:7:2);
end.

0 0

4 года назад

Напишите алгоритм решения задачи на языке С ++ Принадлежит ли заданая точка внутренней области треугольника . Входные данные x1

Алла86

В основу решения возьму тот факт, что точка лежит внутри треугольника только в том случае, если сумма площадей трех образованных этой точкой и вершинами треугольников треугольников равна площади самого треугольника. Для нахождения площади треугольников использую формулу векторного произведения, деленного пополам.

#include <stdio.h>
#include <stdlib.h>

using namespace std;

int main() {
  int x1, y1, x2, y2, x3, y3, x0, y0;
  scanf("%d%d%d%d%d%d%d%d", &x1, &y1, &x2, &y2, &x3, &y3, &x0, &y0);
  if (abs((x1 - x0) * (y2 - y0) - (x2 - x0) * (y1 - y0)) +
    abs((x1 - x3) * (y0 - y3) - (x0 - x3) * (y1 - y3)) +
  abs((x0 - x3) * (y2 - y3) - (x2 - x3) * (y0 - y3)) ==
  abs((x1 - x3) * (y2 - y3) - (x2 - x3) * (y1 - y3)))
  {
  printf("YES");
} else {
printf("NO");
}
  return 0;
}<span />

0 0

3 года назад

даны катеты прямоугольного треугольника a b c найдите его периметр P(P=a+b+c).составьте блок-схему и напишите программу ее решен

IvanAleev [32]

Program z1;
var a,b,c,p:double;
begin
        readln(a);readln(b);
        c:=sqrt(a*a+b*b);
        p:=a+b+c;
        writeln(p);
        readln
end.

0 0

3 года назад

Срочно 50 баллов напишите программу которая подсчитает сумму натуральных чисел от 1 до n

vados1984

Var i,s,n: Integer;
begin
readln(n);
for i := 1 to n do begin
s := s + i;
end;
writeln(s);
end.

0 0

4 года назад