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

Написать программу, которая выводит содержимое файла, кроме тех слов длина которых больше 5 символов. str.length() с++

Показать ответ
Ответ:
bandit12341
bandit12341
23.07.2020 14:02
#include <stdio.h>
#include <stdlib.h>

int main()
{   
    printf("Input of 10 elements on an interval [-10; 10]:\n");
    int a = -10, b = 10, i, arr[10]; 
   
    for(i = 0; i < 10; i++)   
    {         
         printf("\na[%d] = ", i);   
         scanf("%d", &arr[i]);   
    }

    for(i = 0; i < 5; i++)   
    { 
        arr[i] = -arr[i];
    }

    for(i = 5; i < 10; i++) 
    {       
        arr[i] = -arr[i];   
    }
   
    printf("\nMassiv with inversion:\n");

    for(i = 0; i < 10; i++)   
    {
         if(arr[i] >= a && arr[i] <= b)
         {           
             printf("\na[%d] = %d", i, arr[i]);   
         } 
        else printf("\nError input");   
    }
   
    return 0;
}
0,0(0 оценок)
Ответ:
Irkuzmina
Irkuzmina
01.12.2021 03:50
1)
var
  i, max, maxin: smallint;
  arr1, arr, sum: array[1..25] of smallint;

begin
  max := -(MaxSmallInt);
  randomize();
  for i := 1 to 25 do
  begin
    arr[i] := Random(-100, 100);
    arr1[i]:=arr[i];
    write(arr[i], ' ');
    while arr[i] <> 0 do
    begin
      sum[i] := abs(arr[i] mod 10) + sum[i];
      arr[i] := arr[i] div 10;
      if sum[i] > max then begin
      max := sum[i];
      maxin:=i;
      end;
    end;
  end;
  writeln();
  writeln(arr1[maxin]);
end.

2)
var
  i, sum: byte;
  arr: array[1..20] of byte;

begin
  sum := 0;
  randomize();
  for i := 1 to 20 do
  begin
    arr[i] := random(10);
    write(arr[i], ' ');
    if arr[i] = i then sum := i + sum;
  end;
  writeln();
  writeln(sum);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота