VAR
a,b,c,x: Integer; - описание типов переменных
BEGIN
Writeln('...'); // выводит, то что в скобках, с переносом строки
Write('...'); // выводит, то что в скобках, без переноса строки
Readln(x); // считывает значение переменной x, с переносом строки
a := x div 100;
// делит нацело Х на 100 и записывает результат в А (первая цифра числа)
b := (x mod 100) div 10;
// берет остаток от целочисленного деления Х на 100, нацело делит его на 10 и записывает его в b (вторая цифра числа)
с := x mod 10;
// берет отстаток от целочисленного деления X на 10 и записывает его в С
s := a + b + c;
// складывает цифры числа
Writeln('s = ',s); // выводит результат
END.
Все очень просто.
Сначала мы находим сколько всего точек, ведь каждая точка - это какой то цвет: 1024*768(не умножаем т.к можно сократить). Дальше найдем, сколько занимает места 1 точка: 768*1024*8 /1024*768 бит (Умножили на 1024 и 8, чтобы перевести в биты). 768 и 1024 сокращается, получается 8 бит Теперь формула N(Кол. цветов) = 2^I(инф. обьем) I известно, остается найти N т.е. = 256.
VAR
n,max:LongInt;
BEGIN
WriteLn('Введите трехзначное число:');
ReadLn(n);
max:=0;
Repeat
If (n mod 100)>max then max:=(n mod 100);
n:=n div 100;
Until n=0;
WriteLn('Самое большое число в трехзначном числе: ',max);
Readln;
END.
Несомненно, пользователь <span><span>Yuliagal </span>правильно сделала задание. Я оставлю свой ответ здесь, если вдруг кто-нибудь не понял, как это задание можно выполнить.
var st: string; l, e, s: integer;
begin
readln(st);
l := pos('л', st);<em>//Находим позицию символа л </em>
e := pos('е', st);<em>//Находим позицию символа е </em>
s := pos('с', st);<em>//Находим позицию символа с </em>
if (l = 0) or (e = 0) or (s = 0) then writeln('Составить слово лес нельзя.'); <em>//Если символ не был найден, то ему присваивается значение равное 0, следовательно, дальнейшее выполнение программы бессмысленно.</em>
if (l > 0) and (e > 0) and (s > 0) then writeln('Можно составить слово: ', copy(st, l, 1) + copy(st, e, 1) + copy(st, s, 1)); <span><em>//Если символ найден, ему присваивается значения, равное позиции в строке. Далее выводим на печать символы, расположенные в этих позициях.</em>
</span><span>end.
Еще раз повторюсь, решение </span></span><span>Yuliagal верное, и самое короткое.</span>