У 4 задачи алгоритм такой:
1. Начало
2. Ввод четырех чисел A1, A2, A3, A4.
3. X1 = A1 + A2. X2 = A3 + A4
4. Если X1 > X2, То Вывод Tan(A3), Иначе Вывод Sin(A1)
5. Конец.
Язык ты не написала, так что программу сама пиши.
алг. обход прям.области
нач.
нц пока <продолжается стена> повторять
шаг
кц
поворот
кон.
как то так)
В кодировке КОИ-8 один символ занимает 8 бит.
Значит, одна строчка на странице будет занимать: 32*8=256 бит. Тогда одна страница будет весить: 256*60=15.360 бит.Теперь вычислим сколько бит занимает вся книга. Для этого 128 страниц умножим на 15.360, получим 1.966.080 бит. Остается только перевести в килобайты. Для удобства мы переконвертируем сначала в байты: 1.966.080 / 8 = 245.760 байт
Теперь в килобайты: 245.760 / 1.000 = <u>245 Килобайт</u>
1)
var
a, b, c, d: integer;
begin
readln(a);
b := a div 100; { сотни }
c := (a mod 100) div 10; { десятки }
d := a mod 10; { единицы }
writeln('Сумма цифр равна: ', b + c + d);
end.
2)
var
a, b, c, d, p: integer;
begin
readln(a);
b := a div 100; { сотни }
c := (a mod 100) div 10; { десятки }
d := a mod 10; { единицы }
p := d * 100 + c * 10 + b;
writeln('Наоборот: ', p);
end.
3)
var
a, b, c, d, e: integer;
begin
readln(a);
e := a div 1000; { тысячи }
b := (a div 100) mod 10; { сотни }
c := (a mod 100) div 10; { десятки }
d := a mod 10; { единицы }
writeln('Сумма: ', e + b + c + d);
writeln('Произведение: ', e * b * c * d);
end.
