16 марта, 21:29

Составить алгоритм и программу. Дано 2 числа. Вычислить их сумму. Если она превышает 1000, то вычислить и напечатать квадрат первого числа. В противном случае - квадрат второго.

+3
Ответы (1)
  1. 16 марта, 23:03
    0
    program zz1;

    var a, b, r:integer; / /задаем переменные целого типа

    begin

    write (' введите первое число '); / / вводим с клавиатуры первое число

    read (a);

    write (' введите второе число '); / / вводим с клавиатуры второе число

    read (b);

    r:=a + b; / / вычисляем сумму двух заданных чисел по формуле

    if r > 1000 / /проверяем, если сумма чисел больше тысячи, то в ответ выводим квадрат первого числа, если нет, то квадрат второго числа

    then write (' квадрат первого числа = ', a * a)

    else write (' квадрат второго числа = ', b * b); / / выводим ответ

    end.
Знаешь ответ на этот вопрос?
Новые вопросы по информатике
Уместится ли песня на дискету размером 1,44 Мбайта, если она имеет следующие параметры: стерео длительностью звучания 3 минуты при качестве звука - 16 битов, 16 кГц
Ответы (1)
Дополни схему классификации системных программ. Системные программы Операционные ... драйверы, утилитлы Программы для ... (архиваторы) Анти ... программы
Ответы (1)
Написать программу, определяющую модуль числа (В Паскале)
Ответы (1)
Составить программу значение 1 если указанное высказывание является истинным и 0 в противном случае: сумма цифр данного двузначного числа N является четным числом
Ответы (1)
Скорость ADSL-соединение равна 1024000 бит/с. Передачи файла через данное соединение заняла 5 секунд. Определите размер файла в Кбайт.
Ответы (1)
для какого имени ложно высказывание: (3 буква гласная) или Не (Последняя буква гласная) 1) Елена 2) Татьяна 3) Станислав
Ответы (1)
Составьте программу вычисляющую, сумму квадратов чисел от 1 до n, (n - вводится с клавиатуры) если n-четное, и сумму кубов чисел от 1 до n, если n-нечетное. Использовать цикл WHILE
Ответы (1)
В каком языке программирования отсутствует тип данных
Ответы (1)
Что такое бит с позиции алфавитного подхода к измерению информации?
Ответы (1)
Для создания и обработки электронных документов используется компьютерные программы (отметь). Графический планшет; Текстовый редактор; Графический редактор; Калькулятор; Музыкальный редактор; Сканер; Клавиатурный тренажёр.
Ответы (1)