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

161341498461882...28466018.jpg


161341498461882...28466018.jpg

Показать ответ
Ответ:
natalyiphonep0725u
natalyiphonep0725u
23.10.2022 23:45
Program gt;
var n,i,max,min:integer;
a:array[1..100]of integer;
begin
read(n);
{n-кол-во учащихся}
for i:=1 to n do
read(a[i]);
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if(a[i]>max)then max:=a[i];
if(a[i]<min)then min:=a[i];
end;
writeln(max,' ',min,'-росты')
max:=max-min;
writeln(max);
end.
2)
program gt;
var n,i,a,k:integer;
begin
read(n);
k:=0;
for i:=1 to n do
begin
read(a);
if(a<1958)then k:=k+1;
end;
writeln(k);
end.
3)
program gt;
var i,q,a,l:integer;
begin
for i:=8 to 20 do
begin
read(a);
if(a<0)then begin
q:=q+1;
if(q=1)then l:=i;
end;
end;
writeln(l);
end.
0,0(0 оценок)
Ответ:
aldynsaioorzhak1
aldynsaioorzhak1
11.08.2020 07:55
#include <iostream>
using namespace std;
int main()
{
setlocale(0,"");
int p;
int n;
int kol=0;
cout<<"введите число p которое проверяется";
cin>>p;
cout<<"введите число n первых нечётных чисел ";
cin>>n;
for (int i=1;i<=n*2;i++)
  {
  for (int j=1;j<=n*2;j++)
    {
    if ( ((i%2)==1) && ((j%2)==1) ) n2++;
    if ( ((i%2)==1) && ((j%2)==1) && ((i*j)==p) ) kol++; 
    }
  }
cout<<"количество "<<n<<" первых нечётных чисел кратных "<<p<<" = "<<kol;
return 0;
}
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота