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

Найти сумму цифр четырехзначного числа через цикл с постусловием

👇
Ответ:
Nastya35116
Nastya35116
30.08.2020
Var a,s:integer;
begin
readln (a);
repeat 
s:=s+a mod 10;
a:=a div 10;
until a=0;
writeln (s);
end.
4,6(28 оценок)
Открыть все ответы
Ответ:
viktoria168
viktoria168
30.08.2020
Var
n1,n2,n3,n4,n5:integer;
begin
Readln(n1,n2,n3,n4,n5);
If (n1>n2) and (n1>n3) and (n1>n4) and (n1>n5) then
writeln('Максимальное число: ',n1)
else If (n2>n1) and (n2>n3) and (n2>n4) and (n2>n5) then
writeln('Максимальное число: ',n2)
else If (n3>n1) and (n3>n2) and (n3>n4) and (n3>n5) then
writeln('Максимальное число: ',n3)
else If (n4>n1) and (n4>n3) and (n4>n2) and (n4>n5) then
writeln('Максимальное число: ',n4)
else
writeln('Максимальное число: ',n5);
end.
4,4(100 оценок)
Ответ:
MariaStredinina
MariaStredinina
30.08.2020
#include <stdio.h>
#include <stdlib.h>
#include <locale.h>

int main(void)
{
    setlocale(LC_ALL, "Russian");
    int n, iuneven = -1;
    scanf("%d", &n);
    int *a = (int*)malloc(n * sizeof(int));

    for (int i = 0; i < n; i++)
        scanf("%d", &a[i]);
    for (int i = 0; i < n; i++)
        if (a[i] % 2 == 1)
        {
            iuneven = i;
            break;
        }
    free(a);

    iuneven == -1 ? printf("Нечетное число не найдено\n") : printf("%d\n", iuneven);
   
    return 0;
}
4,6(6 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ