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

Вpascal
написать программу определения суммы цифр заданного натурального числа, используя функцию val.​

👇
Ответ:

объяснение:

program xyitebeanereshenie;

var a: =idinaxer;

begin

val a: =tidilbaeb;

end.

4,8(34 оценок)
Открыть все ответы
Ответ:
AntosciucAndreea
AntosciucAndreea
24.04.2023
1) пассажир Иванов живёт в Москве; 2) проводник живёт на полпути между Москвой и Санкт-Петербургом; 3) пассажир-однофамилец проводника живёт в Санкт-Петербурге; 4) у пассажира, который живёт ближе к месту жительства проводника, чем другие пассажиры, вдвое больше детей, чем у проводника; 5) у пассажира Петрова трое детей; 6) Сидоров (из поездной бригады) недавно выиграл у машиниста партию на бильярде
7) п1+п3 = проводник не Иванов. Кто-то из пассажиров живет в С-Петербурге8) п4+п5+п7 = У Петрова нечетное кол-во детей, значит он не тот кто живет рядом с проводником. Петров живет в С-Петербурге9) п3+п8 =  У проводника фамилия Петров10) п6+п9 = машинист не Сидоров. Машинист - Иванов
ответ: Иванов 
4,4(9 оценок)
Ответ:
Dashasha555
Dashasha555
24.04.2023
 uses crt;
 var
    x,y: real;begin 
clrscr;
    write ('x = '); read (x);
    write ('y = '); readln (y);    if (x > 0) and (y > 0) then
        writeln ('Номер четверти координатной плоскости:I')
    else
        if (x < 0) and (y > 0) then
            writeln ('Номер четверти координатной плоскости:II')
        else
            if (x < 0) and (y < 0) then
                writeln ('Номер четверти координатной плоскости:III')
            else
                if (x > 0) and (y < 0) then
                    writeln ('Номер четверти координатной плоскости:IV')
                else
                if (x>0)or(x<0) and (y=0) then    writeln ('-. Точка лежит на оси. X')
                                   else
                if (y>0)or(y<0) and (x=0) then    writeln ('-. Точка лежит на оси. Y')
                                   else writeln ('-. Точка лежит в центре.');readln
end.
4,4(65 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ