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

Уровень с 1. Посмотри на образец, нарисуй в графическом редакторе. Дай название рисунку, подпии, используя инструмент Ввод текста. образец: Изображение жайлау, созданное в программе Inkscape. 2. Бывал ли ты когда-нибудь на жайлау? Если так, расскажи о своих впечатлениях,


Уровень с 1. Посмотри на образец, нарисуй в графическом редакторе. Дай название рисунку, подпии, исп

Показать ответ
Ответ:
Boss2009
Boss2009
15.05.2023 04:30
Хоть кто-то на приличном языке пишет (учится). Так держать, паскаль-старье.
#include <iostream>
#include <climits>
using namespace std;
int main()
{
  const int s=16;//число элементов+1
long long a[s],zero=0,pluss=LLONG_MAX;
setlocale(LC_ALL,"Rus");
for(int i=1;i<=s;i++)
{
cout<<endl<<"Введите элемент массива №"<<i<<": ";
cin>>a[i];
}
for(int i=1;i<=s;i++)
{
if (a[i]==0) zero++;
if ((a[i]>0)&(a[i]<pluss)) pluss=a[i];
}
cout<<endl<<"Наименьший положительный элемент: "<<pluss;
cout<<endl<<"Количество нулей: "<<zero;
return 0;
}
0,0(0 оценок)
Ответ:
arinaaaaaaaaa0
arinaaaaaaaaa0
19.03.2023 11:25
   '     1)Напиши программу, выводящую на экран степени числа 3 в интервале от а до b включительно (а и b задаются пользователем).    
    
Dim a As Integer
Dim b As Integer  
Dim i As Integer    

a = InputBox("Введите а") 
b = InputBox("Введите b")
   
Dim msg As String      
msg = ""   
     
For i = a To b     
       msg = msg &  3 в степени " & i & " равно " & 3 ^ i & vbCrLf    
 Next    

MsgBox(msg)

2)Найти все делители числа 1204.   

Dim i As Integer       
Dim msg As String   
msg = ""      

For i = 1 To 1204  
          If 1204 Mod i = 0 Then      
                  msg = msg & "Число " & i & " является делителем 1204." & vbCrLf                  End If    
Next 
  MsgBox(msg)
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота