Program sadas;uses crt;var n,i:integer;beginfor i:=1 to 9 do
begin
write(i,' ');
end;end.
Давайте решу как ведущий экономист.
Excel, действительно, не обязателен.
350 * [ (1 - (1+0,11/4)^-28) / (0,11/4) ] =6 772,789 тыс. руб.
Решение на C. Переведи на синтаксис паскаля :)
#include <stdio.h>
int pearCount;
int friendsCount;
int main(int argc, const char * argv[]) {
printf("Количество груш: ");
scanf("%i", &pearCount);
printf("Количество подруг: ");
scanf("%i", &friendsCount);
if (pearCount % friendsCount != 0) {
printf("Количество груш '%i' Количество подруг '%i': нет\n", pearCount, friendsCount);
} else {
printf("Количество груш '%i' Количество подруг '%i': да\n", pearCount, friendsCount);
}
return 0;
}
Нам известна мощность алфавита N (т.е. количество всех возможных символов) обоих языков, значит мы можем узнать информационный вес (i) одного символа для каждого языка по формуле
.
Для языка Бамбара i=7 бит (
); для языка Мандинго i=6 бит (
).
Узнаем количество информации в сообщении на языке Бамбара: 7*70*25*7= 85 750 бит.
Вычислим количество информации в сообщении на языке Мандинго: 6*70*25*7= 73 500 бит.
Делаем вывод, что сообщение на языке Бамбара несёт больше информации на 12 250 бит (85 750-73 500= 12 250).
Var i,j,k:integer;
begin
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if ((i*100+j*10+k) div 11) = (i*i+j*j+k*k)
then writeln(i*100+j*10+k);
end.
Результат:
131
241
324
550
624
803
900
910
Если требуется деление на 11 без остатка, то:
var i,j,k:integer;
begin
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if ((i*100+j*10+k) mod 11) = 0 then
if ((i*100+j*10+k) div 11) = (i*i+j*j+k*k)
then writeln(i*100+j*10+k);
end.
Результат:
<span>550
803</span>