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

Напишите название пиктограмм что они означают

это Сочи по информатике ​


Напишите название пиктограмм что они означаютэто Сочи по информатике ​

Показать ответ
Ответ:
Жыгаа
Жыгаа
08.06.2023 23:33

#include <iostream>
#include <vector>
#include<windows.h>
using namespace std;
char bufRus[256];

char* Rus(const char* text) {

CharToOem(text, bufRus);
return bufRus;
}

int main()
{
vector<int> m;//объявили динамический массив
int n,count,sum;
count=sum=0;
cout<<Rus("Введите количество элементов массива:");

cin>>n;
for(int i=0;i<n;i++)
{ cout<<"m["<<i+1<<"]";
int temp;
cin>>temp;
if (temp>7){count++;sum+=temp;}
m.push_back(temp);
}
cout<<Rus("Количество элементов: ")<<count<<endl;
cout<<Rus("Сумма элементов: ")<<sum;
cin>>n;
return 0;
}

 

Как видите, всё просто)

0,0(0 оценок)
Ответ:
nastusya1709
nastusya1709
08.06.2023 04:23

1. вывести на экран 6 раз своё имя

program imya;

const n=6;

var i:integer;

begin

for i:=1 to n do

writeln('ваше имя');

end.

Пояснения: делала с цикла (можно было написать и шесть раз writeln, но так удобнее). Переменную n ввела для быстрого изменения значений (если нужно будет написать имя не 6, а, к примеру, 8 раз, нужно было заменить только вначале). Ещё хочу отметить, что имя вводится по-английски и нельзя терять апострофы ( ' ).

2. program sum;

var sum:integer;

m:array[1..4] of integer;

i:integer;

begin

m[1]:=6

for i:=2 to 4 do begin

m[i]:=m[i-1]+1;

end;

sum:=m[1];

for i:=2 to 4 do begin

sum:=sum+m[i];

end;

writeln(sum);

end.

Пояснения: можно было делать и по-другому, но так тоже верно. Тут использовалось два цикла и массив. А блок-схему сами сделайте)))

3. program n!;

var n:real;

c:integer;

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

begin

readln(n)

m[1]:=1;

for i:=2 to n do begin

m[i]:=m[i-1]+1;

end;

c:=m[1]

for i:=1 to n do begin

c:=c*m[i];

end;

writeln('n!',c);

end.

Если что не понятно, пишите, объясню

 

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота