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

Паскаль, напишите программы с клавиатуры вводится массив. ямой называется не крайний элемент массива,который меньше обоих своих соседей. необходимо найти в массиве самую глубо-кую яму, то есть яму, значение которой минимально. если в массиве нет ни однойямы, ответ считается равным о.склавиатуры вводится массив. найти и вывести количество пар элементов мас-сива, произведение которых положительно, а сумма кратна 7. под парой подра-зумевается два подряд идущих элемента массива.с клавиатуры вводятся две строки. программа должна найти первую строкувнутри второй, вырезать ее и добавить в конец.​

👇
Ответ:
gif10
gif10
16.07.2020
1.                                                                    

program raf105;

const

 n = 10;

var

 a:array[1..n] of integer;

 i,min:integer;

begin

min:= 10000;

writeln('Вводите числа по очереди');

for i:=1 to n do

begin

 readln(a[i]);

 if (i>1) and (i<n) and(a[i-1]>a[i]) and (a[i+1]>a[i]) and (a[i]<min)

   then min:= a[i];

end;

if min= 10000

 then min:= 0;

writeln('Самая глубокая яма: ',min);

end.

2.                                                                    

program raf105;

const

 n = 10;

var

 a:array[1..n] of integer;

 i,o:integer;

begin

writeln('Вводите числа по очереди');

for i:=1 to n do

 readln(a[i]);

for i:=1 to n-1 do

begin

 if (a[i]*a[i+1]>0) and (((a[i]+a[i+1]) mod 7)=0)

   then o+=1;

end;

writeln('Вывод: ',o);

end.

3.                                                                    

program raf105;

var

 s1,s2,s3:string;

 i,j,o:integer;

begin

writeln('Введите первую строку:');

readln(s1);

writeln('Введите вторую строку:');

readln(s2);

s3:=s2;

o:= pos(s1,s2);

if o>0

 then

 begin

   delete(s3,o,length(s1));

   s3+= s1;

 end

 else s3:='В строке "' + s2 + '" не найдено строки "' + s1 + '"';

writeln(s3);

end.

Язык PascalABC

 

4,7(7 оценок)
Открыть все ответы
Ответ:
MrSasha1111
MrSasha1111
16.07.2020

#include<iostream>

using namespace std;

int main() {

   int down, upper, i, sum=0;

   cin>>down;

   cin>>upper;

   for(i=down; i<=upper; i++ )

       sum+=i;

   cout<<sum;

}

Объяснение:

Чтобы посчитать сумму чисел от какого-то (down) до какого-то (upper), нужно использовать цикл for.

Задаёшь эти самые границы (down и upper), цикл будет повторятся до тех пор, пока значение i не будет равно upper.

В теле цикла считаешь нужную сумму цифр. Как это работает? Очень просто! Когда программа доходит до этого цикла, она присваивает i значение down, затем прибавляет это значение i к sum. Потом программа возвращается к началу цикла, чтобы проверить значение i на соответствие верхней границе upper, если соответствует, то к значению i прибавляется 1 (так как в условии задано правило i++, то есть i=i+1 ) и снова срабатывает тело цикла, где к новой сумме прибавляется новое i (sum+=i – это sum=sum+i). Когда цикл заканчивается, срабатывает оператор вывода cout, который выводит новейшее значение sum.

Когда объявляешь переменные, не забудь оператору sum присвоить значение 0, так как сумма начинается с нуля

4,8(28 оценок)
Ответ:

#include <iostream>

#include <vector>

using namespace std;

bool isLeap(int y){

   return (y % 400 == 0 || (y % 4 == 0 && y % 100 != 0));

}

signed main(){

   string s, cur;

   cin >> s;

   vector<int> d;

   for(int i = 0; i < s.length(); i++){

       if(s[i] == '.'){

           d.push_back(stoi(cur));

           cur.clear();

       }

       else

           cur += s[i];

   }

   d.push_back(stoi(cur));

   int k = d[0];

   d[1]--;

   while(d[1] > 0){

       if(d[1] == 2) k += 28 + isLeap(d[2]);

       else if((d[1] < 8 && d[1] % 2 == 1) || (d[1] >= 8 && d[1] % 2 == 0)) k += 31;

       else k += 30;

       d[1]--;

   }

   cout << (365 + isLeap(d[2])) - k + 1;

}

4,6(12 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ