Var a,e,z,y,x:integer;
Begin
Writeln('Введите трехзначное число');
Readln(a);
x:=a div 100;
y:=(a-x*100) div 10;
z:=a-y*10-x*100;
e:=x+y+z;
writeln('Сумма чисел ',x,' ',y,' и ',z,' равна ',e,'.');
<span>end.
p.s.
</span>a-трехзначное число
e-сумма чисел
x, <span>y </span>и <span>z </span>- первое, второе и третье число соответственно.
Program cikl;
uses crt;
var x,y:integer;
begin
write('веди нужное число');
read(x);
for y:=-25 to x do
write(' ',y);
inc(y);
end.
это сгадится
<span>время будет занимать видео файл, передаваемый с разрешением кадра 600 х 400 пикселей с 16 битовой глубиной цвета, скоростью воспроизведения 24 кадров в секунду и объемом в 10 Гбайт. Известно, что стерео звук, наложенный на видео имеет 128 уровней громкости, частота дискретизации равна 32 КГц. Відповідь: 40 мин.</span>
Ответ:
когда есть кто то главный а остальные подчиняются
наглядный пример путь к какому-либо файлу
Объяснение:
Var s : string;
i, k : integer;
begin
Readln(s);
k:=0;
for I := 1 to Length(s) div 2 do
if s[i]= s[Length(s)-k] then k:=k+1;
if k= Length(s) div 2 then Write('Полиндром') else Write('Не полиндром'); Readln
end.