Uses crt;
var input, betw:integer;
begin
readln(input);
betw := input;
betw := betw div 10;
betw := betw div 10;
betw := betw div 10;
writeln('Тысяч = ', betw);
betw := input;
betw := betw div 10;
betw := betw div 10;
betw := betw mod 10;
writeln('Сотен = ', betw);
betw := input;
betw := betw div 10;
betw := betw mod 10;
writeln('Десятков = ', betw);
betw := input;
betw := betw mod 10;
writeln('Единиц = ', betw); end.
Я согласна с предыдущим ответом, но также должно быть название каждого слайда, например: введение, основной текст, конец, в введении пишешь определение, того о чем будешь говорить, основной текст раздели на части и тоже назови, в конце все термины на эту тему, источники и спасибо за внимание напиши.
Program Lloyd;
var
i,a:integer;
begin
a:=1;
for i:=1 to 55 do begin
if (i mod 5)=0 then
a:=a*i;
end;
writeln('Произведение =',a);
end.
Число цветов в палитре-N,
Объем графического файла-I,
Количество пикселей-K
Глубина цвета-I
Формулы:
I = K·i
N = 2 в степени i