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

Дана строка: “Lorem ipsum, dolor sit amet consectetur adipisicing elit. Iste debitis est modi. Blanditiis officia saepe doloremque vel deleniti porro reprehenderit cumque fugit inventore ullam id tenetur, eum libero rerum earum!” Вывести на консоль буквы из этой строки с индексами 10, 25, 50, 100, 200.

👇
Ответ:
dasha5010
dasha5010
07.07.2020

#include <stdio.h>

int main()

{

       char s[214] = "Lorem ipsum, dolor sit amet consectetur adipisicing elit. Iste debitis est modi. Blanditiis officia saepe doloremque vel deleniti porro reprehenderit cumque fugit inventore ullam id tenetur, eum libero rerum earum!";

       printf("Индекс 10: %c\n", s[9]);

       printf("Индекс 25: %c\n", s[24]);

       printf("Индекс 50: %c\n", s[49]);

       printf("Индекс 100: %c\n", s[99]);

       printf("Индекс 200: %c\n", s[199]);

       return 0;

}

4,5(86 оценок)
Открыть все ответы
Ответ:
matvee1
matvee1
07.07.2020
Если элементы массива идут по возрастанию, то вот так

program wstawka;
uses crt;
const min=1;
max=20;
type zona=min..max;
massiw=array[zona] of integer;
var mas:massiw;
i,j:zona;
a,N,M:integer;
T:boolean;
BEGIN randomize;
clrscr; N:=random(20);
writeln('4ucJlo N = ',N);
 M:=random(20); Writeln('4ucJlo M = ',M);
for i:=min to max-2 do
begin
mas[i+1]:=mas[i]+random(5);
write(mas[i],' ');
end;
for i:=min to max-2 do
if (mas[i]>N) and (t=false) then
begin
t:=true;
a:=mas[i];
mas[i]:=N;
for j:=i+1 to max do
begin
N:=mas[j];
mas[j]:=a;
a:=N;
end;
end;
for i:=min to max-1 do
if (mas[i]>M) and (t=true) then
begin
t:=false;
a:=mas[i];
mas[i]:=M;
for j:=i+1 to max do
begin
M:=mas[j];
mas[j]:=a;
a:=M;
end;
end;
writeln;
for i:=min to max do
write(mas[i],' ');
readkey;
END.
4,7(52 оценок)
Ответ:
nikitagarin2
nikitagarin2
07.07.2020
1. Вот так сейчас решают подобные задачи:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.

Тестовое решение:
-0.00136006072493969

2. А вот так учат писать это же школьные учителя:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
  m:array[1..100] of real;
  i,k:integer;
  s:real;

begin
  s:=0;
  k:=0;
  for i:=1 to 100 do begin
    m[i]:=sin(i)*cos(i);
    if m[i]<>0 then begin
      s:=s+m[i];
      k:=k+1
      end
    end;
  Writeln(s/k)
end.

Тестовое решение:
-0.00136006072493969
4,7(55 оценок)
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ