• Помогите пожалуйста.
    1)НАДО НАПИСАТЬ 3 ЗАДАЧИ АН ПРОГРАМИРОВАНИИ ПАСКАЛЬ И СОСТАВИТЬ ИХ БЛОК-СХЕМЫ.ЗАРАНЕЕ СПАСИБО))))))))
    1. Вычислить стоимость покупки с учетом скидки. Скидка в 3% предоставляется в том случае, если сумма покупки больше 500 руб., в 5% — если сумма больше 1000 руб.
    2. Даны M чисел. Вывести на экран наибольшее из чисел.
    3. Дан одномерный массив размерностью 10, заполненный целыми числами, введенными с клавиатуры. Вывести на экран номер и значение элементов массива, абсолютное значение которых >10.

Ответы 1

  • 1)var a: real; beginread(a);if a>1000 then a:=a-a*0,05;if (a>500) and (a<=1000) then a:=a-a*0,03;write (a);end.2)var a, max: real; i, m: integer;beginread (m);for i to m do beginread (a);if a> max then max:=a;end;write (max);end.3)const n=10var a: array [1..n] of integer; i: integer;beginfor i to n dobeginread (a[i]);if (sqrt (A[i]*A[i]))>10 thenwrite (a[i]);end;end.
    • Автор:

      magic85
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years