Program abc; var a:array[1..6] of integer; var i,s: integer; begin i:=0;a[1]:=500;a[2]:=100;a[3]:=10;a[4]:=5;a[5]:=2;a[6]:=1; writeln('Введите целое число,сумму денег:'); readln(s); while s<>0 do begin if s>=a[1] then begin s:=s-a[1]; i:=i+1; end; if (s>=a[2]) and (s<a[1]) then begin s:=s-a[2]; i:=i+1; end; if (s>=a[3]) and (s<a[2]) then begin s:=s-a[3]; i:=i+1; end; if (s>=a[4]) and (s<a[3]) then begin s:=s-a[4]; i:=i+1; end; if (s>=a[5]) and (s<a[4]) then begin s:=s-a[5]; i:=i+1; end; if (s>=a[6]) and (s<a[5]) then begin s:=s-a[6]; i:=i+1; end; end; Writeln('Наименьшее число купюр =',i); end.
1. Выразим выражения по правилам языка Pascal:
a) 5 * 2 - 4
Решение:
Умножение имеет более высокий приоритет, чем вычитание. Поэтому, сначала выполним вычисление умножения: 5 * 2 = 10.
Затем, выполним вычитание: 10 - 4 = 6.
Ответ: 6.
б) 7 * х + 2
Решение:
Умножение имеет более высокий приоритет, чем сложение. Поэтому, сначала выполним вычисление умножения: 7 * х = 7х.
Затем, выполним сложение: 7х + 2.
Ответ: 7х + 2.
в) 8 * х - 3 * (х + у)
Решение:
Выполним умножение: 8 * х = 8х и 3 * (х + у) = 3х + 3у.
Затем, выполним вычитание: 8х - (3х + 3у).
Для выполнения операции в скобках, умножение 3 на каждый из элементов внутри скобок:
8х - 3х - 3у = 5х - 3у.
Ответ: 5х - 3у.
г) v^2 * х * у^2 * х * у
Решение:
По правилам алгебры, умножение можно проводить в любом порядке.
Выполним умножение: v^2 * х = v^2х, у^2 * х = у^2х, v^2х * у^2х = (vх * у)^2х.
Ответ: (vх * у)^2х.
2. Переведем запись с языка Pascal в нормальную форму:
f = (3 * x + 4 * y)/(2 * sqr(к) - 4 * t / y)
Решение:
Нормализация выражения подразумевает разделение на более простые составляющие.
Заменим sqr(к) на к^2, чтобы выразить возведение в квадрат в общепринятой форме:
f = (3 * x + 4 * y)/(2 * к^2 - 4 * t / y)
Затем, выполним умножение и деление в числителе и знаменателе:
f = (3 * x + 4 * y)/(2к^2 - (4 * t) / y)
Ответ: f = (3 * x + 4 * y)/(2к^2 - 4t/y).
Таким образом, мы записали выражения по правилам языка Pascal и перевели запись с языка Pascal в нормальную форму.
Объяснение:
использовать Робот
алг
нач
вниз
вниз
вниз
вниз
вправо
закрасить
вправо
закрасить
вниз
закрасить
вниз
закрасить
вниз
закрасить
вправо
вверх
закрасить
вверх
закрасить
вверх
закрасить
вправо
закрасить
вниз
закрасить
вниз
закрасить
вниз
закрасить
вправо
вверх
вверх
вверх
закрасить
вправо
закрасить
вправо
закрасить
вправо
закрасить
вправо
закрасить
вверх
закрасить
вверх
закрасить
вправо
закрасить
вправо
закрасить
вниз
закрасить
вниз
закрасить
вниз
закрасить
вниз
закрасить
влево
закрасить
влево
закрасить
вверх
закрасить
вверх
вверх
вверх
вверх
вверх
влево
влево
влево
влево
влево
влево
влево
влево
влево
кон
Прикладываю файл для Кумира с алгоритмом, Ключ.txt но его надо будет переименовать в Ключ.kum