Как соединить 2 вот этих процесса в один ?
1 процесс
uses crt;
var number : integer ;
begin
clrscr;
write('Введите число и нажмите '); readln(number);
if number mod 2 = 0 then
writeln('Число четное')
else writeln('Число не четное');
readln; {чтобы программа не закрывалась}
end.
2 процесс
var n: word;
even, odd: byte;
begin
readln(n);
even := 0;
odd := 0;
while n > 0 do begin
if n mod 2 = 0 then
even := even + 1
else
odd := odd + 1;
n := n div 10;
end;
writeln('четных ', even);
writeln('нечетных ', odd);
end.

132

176

Посмотреть ответы 1

Ответы на вопрос:

AlenaRayskaya

Информатика

4,5(71 оценок)

#include <iostream>

using namespace std;

int main(){

int res = 0, bal = 1;

string s;

cin >> s;

getline(cin,s);

for(int i = 0; i < s.length(); i++){

if(s[i] >= '0' && s[i] <= '9')

res += (s[i] - '0') * bal;

else{

if(s[i] == '-')

bal = -1;

else

bal = 1;

}

cout << res;

}

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.