program raf105;
var a,b,sum,nsum,nkol:integer;
sari:real;
begin
write('Введите число: ');
readln(a);
while a<>0 do
begin
b:= a mod 10;
a:= (a-b) div 10;
sum:= sum+b;
if (b mod 2)<>0
then
begin
nsum:= nsum+b;
nkol:= nkol+1;
end;
end;
sari:= nsum/nkol;
writeln('Сумма всех цифр в числе: ',sum);
writeln('Среднее арифметическое нечётных цифр в числе: ',sari);
end.
<u><em>Язык программирования PascalABC</em></u>
Условие:В Блокнот (Notepad) введён текст: осень. Нам необходимо вычислить информационный объём данного текста. Помним, что один символ текста занимает 1 байт. Значит, информационный объём данного текста равен: <span>1байт⋅5=5байтов</span>. Занимаемый объём на флэш - диске: <span>32<span> Кбайт</span></span>, т.к. <span>на флэш-диске используется файловая система FAT16, и этот файл будет занимать один кластер, объём которого равен 32 Кбайт.</span>
Два текстовых файла можешь копировать в PascalABC.NET оба рабочие. Первый с динамическими массивами под PascalABC.NET второй -статические массивы для FreePascal.
Var A:integer;
Begin
Write('Введите четырёхзначное число: ');ReadLn(A);
WriteLn('S = ',(A div 1000)+(A div 100) mod 10+(A div 10) mod 10+A mod 10);
End.
С помощью компьютера можно сделать любой дизайн