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

Расширение файла указывает на тип данных, хранящихся в файле, но не позволяет определить программу, с которой можно открыть файл. верно или нет?

Показать ответ
Ответ:
samsunguser
samsunguser
30.08.2020 13:29

#include <iostream>

using namespace std;

int main() {

int n = 0;

setlocale (LC_ALL, "Russian");

cout << "Введите количество чисел: ";

cin >> n;

int sum(0);

int a[n];

for(int i = 0; i < n; ++i) {

 abc:

 cout << "№" << i << ": ";

 cin >> a[i];

 if(a[i]>300||a[i]%6!=0) {

  cout << "Число превышает 300 или не кратно 6. Повторите ввод" << endl;

  goto abc;

 }

 if(0 == a[i]%6) {

  sum += a[i];

 }

}

cout << "Сумма введённых чисел, кратных 6: " << sum;

}

0,0(0 оценок)
Ответ:
Роли5
Роли5
16.02.2023 12:57

Держи ;)

Var year,s,y,o:integer; old,young,name,nation:string;

Begin

s:=0;

o:=0;

y:=200;

While (s=0) do

Begin

Write('Введите имя и фамилию участника. Если список окончен, напишите "конец": ');

Readln(name);

If (name='конец') then break;

Write('Введите национальность участника: ');

Readln(nation);

Write('Введите возраст участника: ');

Readln(year);

If (year > o) and (nation='русский') then

Begin

o:=year;

old:=name;

end;

If (year < y) and (nation='русский') then

Begin

y:=year;

young:=name;

end;

end;

Write('Самый молодой русский участник - ',young,', самый старый русский участник - ',old);

End.

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