<span>Альберт Дитрих; Карл Альберт; Дитрих Фридрих; Фридрих Карл.
</span>
I=1 v=5 x=10 l=50 c=100
cv=100+5=105
vc=100-5=95
lc=100-50=50
cl=100+50
cvciv= 100 + 95 +4=199
vciv=95+4=99
прибавим по еденице к результатам и получим 200 и 100
осталось перевести числа в римскую систему счисления и выбрать ответ
Ответ:
Добрый день!
Я не знаю Паскаль, но могу рассказать, что от Вас требуют.
Вы заводите функцию например rec
передаете в нее значение пременной А
внутри фунцкии выполняется: вызов той же функции от А - N. А также возвращается результат вызова этой функции
Также в начале функции вы проверяете, меньше ли это число, чем то, которое было изначально введено в N раз
Реализация на С
F(A,B)
{
if (A > B)
return F(A-N,B);
else
return A;
}
А в программе вызываем : F(N,N);
Const
maxn = 4;
maxm = 5;
type
myarr = array [1..maxn, 1..maxm] of longint;
var
a: myarr;
sum, i, j: longint;
begin
for i := 1 to 4 do begin
for j := 1 to 5 do begin
a[i, j] := i * j;
write(a[i, j], ' ');
end;
writeln;
end;
sum := 0;
for j := 1 to 5 do begin
for i := 1 to 4 do
if (a[i, j] mod 3 = 0) then
sum := sum + a[i, j];
writeln('Сумма чисел, кратных 3, в ', j, ' столбце равна ', sum);
sum := 0;
end;
end.
Ответ:
Program a2;
var k, m, c: integer;
begin
readln(k, m, c);
if (k+m) >= c Then
writeln('Yes')
else
writeln('No');
end.
Объяснение:
k - денег у Вити, m - денег у Пети, c - стоимость покупок, если сумма денег больше либо равна стоимости покупок => расплатиться они за покупки смогут