Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
TheArinaS
24.11.2021 12:37 •
Информатика
С клавиатуры вводится число N, и далее N чисел. Составить программу записывающую в файл только четные числа из тех чисел которые вводит пользователь
Показать ответ
Ответ:
ZeBrAiL2TW
11.09.2021 14:24
#include <iostream>
#include <cmath>
using namespace std;
void main()
{
int n,sum=0;
float y,k=0;
cin >> n;
int *mass = new int[n];
for (int i = 0;i < n;++i)
{
cin >> mass[i];
}
for (int i = 0;i < n;++i)
{
if (mass[i] >0 )
{
k++;
y=pow(mass[i],2);
cout<<y;
sum+=mas[i]
}
}
system("pause");
}
2)#include <iostream>
#include <cmath>
using namespace std;
void main()
{
int s,p,r,day=0;
cin >> s>>p>>r;
float km=s;
while(r>km)
{
km+=km*p/100;
day++;
}
cout << " km = " << km << " day = " << day << endl;
system ("pause");
}
0,0
(0 оценок)
Ответ:
ЕvilСookie
22.12.2022 02:10
1.
var
s: string;
i, count: integer;
begin
writeln('Vvedite stroky: ');
readln(s);
for i := 1 to length(s) - 2 do
if copy(s, i, 3) = 'abc' then
count := count + 1;
writeln('Kol-vo: ', count);
end.
2.
var
s1, s2: string;
i, len1, len2: integer;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
len1 := length(s1);
len2 := length(s2);
if len1 > len2 then writeln('1 stroka dlinnee')
else if len1 < len2 then writeln('2 stroka dlinnee')
else writeln('dlini strok ravnie')
end.
3.
var
s1, s2, s3: string;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
s3 := s1[1] + s1[2] + s2[1] + s2[2];
writeln('Novaja stroka: ', s3);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
alis2710p00nvt
14.09.2021 23:50
Толтыру марекрі не үшін қолданылады? по быстрее...
Каримовка
23.02.2023 09:53
Задание 1. Информационный объем некоторого сообщения равен 16 битам. Сколько символов входит в алфавит, с которого было составлено это сообщение? Задание 2. Сколько символов содержит...
Daniil129932
01.04.2022 17:56
Дан IP адрес, выбери и запиши верные ответы. IP адрес 188.38.109.181 компьютера относится к сети класса (какого?), адрес компьютера в сети (...) (...) (...), а (...) - это адрес компьютера...
kozlov20041
03.12.2022 13:51
Каким свойством не обладает следующий алгоритм? Алгоритм Начало Взять наименьшее натуральное четное число Цикл пока результат не равен 1, выполнить {Возвести число в квадрат Вычесть...
ponomarevaaaaaaaaaa
22.05.2023 00:44
Является ли условным оператором следующая последовательность символов? ifx 7theny:=x+7elsey:=x−7...
HanjiZ
23.03.2020 14:32
Язык Паскаля. Задание на фото....
Натальяроссия
03.09.2020 15:27
1. Что такое сноска? 2. Для чего нужно использовать сноску в документах? 3. Как можно быстро перейти из одной части документа к другой? 4. Как ты думаешь, для чего необходимо организовывать...
NASTUHA6
13.01.2020 09:48
Отметьте все формулы, которые НЕ изменятся при копировании из ячейки C6 в ячейку варианты =A$5+$B2=$A5+$B2=A$5+B$2=$A$5+$B$2=$A$5+$B2...
380931817787
23.10.2020 01:37
В ячейке B4 электронной таблицы записана формула =$C3*2. Какой вид приобретет формула, после того как ячейку B4 скопируют в ячейку B6?...
dianarudak
18.12.2021 07:36
Из 18 кг хлопкового семени получили 4,5 кг масла. Найди, сколько масла получится из 9 кг хлопкового семени.ответ: кг масла....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
#include <cmath>
using namespace std;
void main()
{
int n,sum=0;
float y,k=0;
cin >> n;
int *mass = new int[n];
for (int i = 0;i < n;++i)
{
cin >> mass[i];
}
for (int i = 0;i < n;++i)
{
if (mass[i] >0 )
{
k++;
y=pow(mass[i],2);
cout<<y;
sum+=mas[i]
}
}
system("pause");
}
2)#include <iostream>
#include <cmath>
using namespace std;
void main()
{
int s,p,r,day=0;
cin >> s>>p>>r;
float km=s;
while(r>km)
{
km+=km*p/100;
day++;
}
cout << " km = " << km << " day = " << day << endl;
system ("pause");
}
var
s: string;
i, count: integer;
begin
writeln('Vvedite stroky: ');
readln(s);
for i := 1 to length(s) - 2 do
if copy(s, i, 3) = 'abc' then
count := count + 1;
writeln('Kol-vo: ', count);
end.
2.
var
s1, s2: string;
i, len1, len2: integer;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
len1 := length(s1);
len2 := length(s2);
if len1 > len2 then writeln('1 stroka dlinnee')
else if len1 < len2 then writeln('2 stroka dlinnee')
else writeln('dlini strok ravnie')
end.
3.
var
s1, s2, s3: string;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
s3 := s1[1] + s1[2] + s2[1] + s2[2];
writeln('Novaja stroka: ', s3);
end.