polisorb2
03.05.2023 18:14

Сделать задачу . 1 скриншот - 1 задание
2,3 - 1 пример нужный для 1 задания
Тема : Типизированные файлы


Сделать задачу . 1 скриншот - 1 задание 2,3 - 1 пример нужный для 1 задания Тема : Типизированные фа
Сделать задачу . 1 скриншот - 1 задание 2,3 - 1 пример нужный для 1 задания Тема : Типизированные фа
Сделать задачу . 1 скриншот - 1 задание 2,3 - 1 пример нужный для 1 задания Тема : Типизированные фа

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
даканчик
03.01.2022 11:33
URI известен под многими именами: WWW адрес, универсальный идентификатор документа (Universal Document Identifiers), универсальный идентификатор ресурса (Universal Resource Identifiers), и, наконец, универсальный локатор ресурса URL (Uniform Resource Locators; тождество URI и URL сомнительно, так как URL является частным случаем URI (примечание переводчика)) и универсальное имя ресурса (URN). Что касается HTTP, универсальный идентификатор ресурса представляет собой форматированную строку символов, которая идентифицирует имя, положение или какие-то еще характеристики ресурса.
0,0(0 оценок)
Ответ:
Режик
28.07.2021 11:59
Program pos;
var
    n, a, b, c, s, d: integer;
begin
    write('n = ');
    readln(n);
    if n < 1000 then
    begin
        a := n div 100;
        b := n mod 100 div 10;
        c := n mod 10;
        write('В числе ');
        if a = 0 then
            if b = 0 then
            begin
                d := 1;
                writeln('1 цифра');
            end
            else
            begin
                d := 2;
                writeln('2 цифры');
            end
        else
        begin
            d := 3;
            writeln('3 цифры');
        end;
        s := a + b + c;
        writeln('Сумма цифр: ', s);
        if n mod 2 = 0 then
            writeln('Число чётное')
        else
            writeln('Число нечётное');
        if d = 1 then
            writeln(c)
        else
            if d = 2 then
                writeln(c, b)
            else
                writeln(c, b, a);
        end
    else
        writeln('Число > 1000!');
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота