Var
m, n, p: integer;
begin
Write('Введите свой номер в группе: ');
Readln(n);
n := n * 12;
p := 1;
repeat
m := n mod 10;
p := p * m;
n := n div 10
until n = 0;
Writeln('Результат ', p)
end.
Тестовое решение:
Введите свой номер в группе: 13
Результат 30
14400. один бит равен одному символу.
var
i, n:integer;
price:real;
begin
n := 20;
price := 20.4;
for i := 1 to n do
writeln('Стоимость ', i:3, ' ед. товара составляет ', price * i:8:2, ' руб.');
end.
//вторая задача
var
i, f, n:integer;
begin
f := 453;
n := 10;
writeln('фунты граммы');
for i := 1 to n do
writeln(' ', i:2, i * f :11);
end.
//третья задача
var
i, n:integer;
k:real;
begin
n := 20;
writeln('Введите курс '); readln(k);
writeln('доллары рубли');
for i := 1 to n do
writeln(' ', i:2, i * k:13:2);
end.
Символы, набранные с использованием кодировки Unicode, кодируются 16 битами каждый. Таким образом, указанный текст будет весить 224 бита или 0,028 килобайт.
1.дед посадил репку
2. выросла репка большая при большая
3. сбор урожая
4. помощь семьи
5. вытащили репку