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

PascalABС Дано двухзначное число. Рассчитать произведение его цифр. Задачу решить через процедуру.

👇
Ответ:

3 4 5 6 7 8 9 10 11 program Integer7; var   A, Res: Integer; begin   Write('Введите двузначное число: ');   Readln(A);   Res:=(A div 10) + (A mod 10);   Writeln('Сумма его цифр равна: ',Res);   Res:=(A div 10) * (A mod 10);   Writeln('Произведение его цифр равно: ',Res); end.

4,8(39 оценок)
Открыть все ответы
Ответ:
grenki476
grenki476
16.12.2020
№1.
Информация – это сведения об окружающем мире, которые повышают уровень осведомленности человека.
Информатика - наука о методах накопления, обработки и передачи информации
Информационные технологии - процесс, использующий совокупность средств и методов сбора, обработки и передачи данных (первичной информации)  для получения информации нового качества о состоянии объекта, процесса или явления (информационного продукта).
Объект - любая часть окружающей дейст-ти
№2.
газета - предмет, радуга - явление, прогулка - процесс, стадион - предмет,чтение - процесс,мираж - явление
№3. 
а) пенал
б) ярлыки
в) диски
г) растения
д) уравнения
е) страны
ж) алгоритм
№4
а) страны мира
б) страны западного полушария
в) страны северной америки
г) самые длинные реки
д) реки России
е) реки Европы
ж) уст-ва ввода, вывода
з) уст-ва ввода
и) растения
к) плодовые растения
4,4(100 оценок)
Ответ:
dashakeks2
dashakeks2
16.12.2020
1)
var a, b: real;
begin
     readln(a, b);
    if (a > b) then writeln(a)
    else
        if (a < b) then writeln(b)
        else
            writeln('a = b');
end.

2)
var a, b, c: integer;
begin
     readln(a);
     b := a mod 100 div 10;
     c := a mod 10;
     a := a div 100;
     write('a) ');
    if (a > c) then writeln(a)
    else
        if (a < c) then writeln(c)
        else
            writeln('=');
     write('b) ');
    if (a > b) then writeln(a)
    else
        if (a < b) then writeln(b)
        else
            writeln('=');
     write('c) ');
    if (c > b) then writeln(c)
    else
        if (c < b) then writeln(b)
        else
            writeln('=');
end.

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