В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
panda4918
panda4918
08.08.2021 04:49 •  Информатика

На ленте задан массив меток. Увеличить длину массива на 4 метки. Начальное положение каретки: либо слева от массива, либо над одной из ячеек самого массива
Заранее большое

Показать ответ
Ответ:
Руфина157
Руфина157
13.04.2020 22:34

Program Goodluck51_1;
uses crt;
var
  n,nt,sum,temp: integer;
begin
  write('Введите 5-значное число ');
  readln(n);
  if (n<10000) or (n>99999) then write('Вы ввели неправильное число ')
  else
    begin
      nt:=n;
      writeln('*** alphaues is thinking... ***');
      writeln('***          OK             ***');
      while n>=1 do
        begin
          temp:=n mod 10;
          sum := sum + temp;
          n := n div 10;
        end;
      writeln('Сумма цифр числа ',nt,' равна ',sum);
    end;
end.

Program Goodluck51__2;
uses crt;
const n=4;
var
  a:array[1..n] of real;
  lt:array[1..n] of char;
  min,max: real;
  i:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  lt[1]:='a';
  lt[2]:='b';
  lt[3]:='c';
  lt[4]:='d';
  for i:=1 to n do
    begin
      write('Введите число ',lt[i],'=');
      readln(a[i]);
    end;
  max:=a[1];
  min:=a[1];
  writeln('Числа: ');
  for i:=1 to n do
    begin
      if a[i] > max then
        max:= a[i];
      if a[i] < min then
        min:=a[i];
      writeln(lt[i],'=',a[i]);
     end;
  writeln('Полусумма наименьшего и наибольшего из них равна',(min+max)/2);
end.  

Program Goodluck51_3;
uses crt;
var
  n,nt,sum,temp: integer;
begin
  write('Введите число ');
  readln(n);
  nt:=n;
  sum:=0;
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  while n>=1 do
    begin
    temp:=n mod 10;
    sum := sum + temp;
    n := n div 10;
  end;
  writeln('Сумма цифр числа ',nt,' равна ',sum);
end.

0,0(0 оценок)
Ответ:
born380111
born380111
24.01.2022 14:49

Program a_86betiri;
uses crt;
const n=20;
var
  a:array[1..n] of real;
  sum, mt: real;
  i:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  sum:=0;
  mt:=1;
  randomize;
  for i:=1 to n do
    begin
      a[i]:=random(100);
      sum:=sum+a[i];
    end;
  writeln('Элементы массива:');
  for i:=1 to n do
    begin
      if a[i]<(sum/n) then
      mt:=mt*a[i];
      write (a[i]:7:2);
    end;
   writeln();
   writeln('Произведение элементов, меньших, чем среднее арифметическое:  ',mt);
end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота