М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
nastyakhariton1
nastyakhariton1
16.03.2022 20:52 •  Информатика

Составить программу ,находящую кол-во и сумму цифр пяти данных целых чисел ,используя процедуру

👇
Ответ:
ксззххххх
ксззххххх
16.03.2022
Var i,x,k,s:integer;

function Sum(x:integer):integer;
var
   t:string;
   i:integer;
begin
s:=0;
t:=IntToStr(x);
for i:=1 to length(t) do s:=s+StrToInt(t[i]);
result:=s
end;

function Kol(x:integer):integer;
var t:string;
begin
t:=IntToStr(x);
result:=length(t)
end;

begin
for i:=1 to 5 do
  begin
  write('Введите число ',i,': '); 
  readln(x); 
  k:=Kol(x); 
  s:=Sum(x); 
  writeln('Количество цифр ',k,'; сумма цифр ',s)
  end
end.
4,8(78 оценок)
Открыть все ответы
Ответ:
Ерко365
Ерко365
16.03.2022
/*VS C++*/
#include <iostream>

using namespace std;

int main() {
    setlocale(LC_ALL, "Russian");
    int N, y, i;
    bool Prime;
    cout << "Введите число: "; cin >> N;
    do {
    Prime = true;
    y = N % 10;
    for (i = 2; i <= (sqrt(abs(y))); i++) {
        if (y % i == 0) {
            Prime = false;
            break;
        }
    }
    if ((Prime) & (y != 0) & (y != 1))
        cout << y << " - простое" << endl;
    else
        cout << y << " - не простое" << endl;
    N = N / 10;    
    } while (N != 0);
    system("pause");
    return 0;
}

Проверить, состоит ли пятизначное число из цифр, являющихся простыми числами или нет. сообщить о рез
4,8(50 оценок)
Ответ:

Объяснение:

1)У тебя спрашивают b=1? У тебя дано b=3, значит b!=1. Если нет, то переходим к следующим указаниям: с=с-b=4-3=1, b=b+c=3+1(Потому что в предыдущем шаге мы дали новое значение для c, вернее произвели математическую операцию с ним. Возвращаемся(Слева линия) снова к логическому условию. Я честно говоря ХЗ, что они тут имели ввиду, но после того, что я описал c=1,но если мы продолжим проверку b=1, то c начнет принимать отрицательные значения. Цикл вышел, как мне кажется.

Теперь мне лень расписывать - держи фото/скрины

Не знаю, что у тебя за язык программирования, но я сделал тоже самое на Python, вроде результат отличатся не должен.


Здравствуйте решить контрольную по информатике Здравствуйте решить контрольную по информатике
Здравствуйте решить контрольную по информатике Здравствуйте решить контрольную по информатике
4,6(98 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ