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

Дана последовательность из n целых чисел. определить, есть ли в ней число, равное первому из этой последовательности.

👇
Ответ:
бека150
бека150
13.07.2021
Var
i,k,n,a1:integer;

begin
readln(n);
readln(a1);
for i:=0 to n-1 do
begin
readln(k);
if (a1 = k) then
writeln("Есть такое число")
else
writeln("Нет такого числа");
end;
end.
4,8(17 оценок)
Открыть все ответы
Ответ:
oytu
oytu
13.07.2021
Var i,n,m: integer;
    a: set of 0..9;
    b: set of 0..9 =[0,1,2,3,4,5,6,7,8,9];
     c: array[1..200] of integer;
begin
  write(' N = ');
  readln(n);
  Randomize;
  for i:=1 to n do
  begin
    c[i]:=Random(255);
    write(c[i],' ');
  end;
  writeln;
  a:=[];
  for i:=1 to n do
   begin
    m:=c[i];
    while (m>0) do
    begin
      a:=a+[(m mod 10)];
      m:=m div 10;
    end;
  end;
  b:=b-a;
  if b<>[] then
  begin
    write('в записи чисел массива не содержатся цифры :  ');
    foreach i in b do write(i,' ');
  end
  else
 writeln('встречаются все цифры');
end.
    
4,8(14 оценок)
Ответ:
sergeyblack11
sergeyblack11
13.07.2021

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

Овалами обозначаются начало и конец алгоритмаТрапеция обозначаются ввод и вывод данныхПрямоугольниками обозначаются блоки где производятся расчеты

Для первой задачи алгоритм прост:

Ввод длины стороны AВвод длины стороны BВвод длины стороны CРасчет длины медианы к стороне AРасчет длины медианы к стороне BРасчет длины медианы к стороне CВывод длины медианы к стороне AВывод длины медианы к стороне BВывод длины медианы к стороне C

Для второй задачи:

Ввод X координаты для первой точкиВвод Y координаты для первой точкиВвод X координаты для второй точкиВвод Y координаты для второй точкиРасчет по формуле расстояния между двумя точками - получаем сторону квадратаРасчет площади квадратаРасчет периметра квадратаВывод значения площади квадратаВывод значения периметра квадрата
Спо программированию , надо решить не по паскалю , а просто . 1)треугольник задан длинами своих стор
Спо программированию , надо решить не по паскалю , а просто . 1)треугольник задан длинами своих стор
4,7(49 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ