Uses crt;
var a,b: Integer;
Begin
Write('Введите целое число: ');
Read a;
While a>0 do
Begin
b:=b+a mod 10;
a:=a div 10;
End;
Writeln('Сумма цифр введённого числа равна ', b);
End.
Program n1;
var a: array[1..12] of integer;
i,sum: integer;
begin
randomize;
sum:=0;
writeln('исходный массив:');
for i:=1 to 12 do
begin
a[i]:=random(15);
write(a[i],' ');
if i mod 2=0 then sum:=sum+a[i];
end;
writeln;
writeln('сумма: ',sum);
end.
5 кбайт = (1024 байт *5 = 5120 байт) , ( 5120*1024 бит = 5242880 бит)
5кбайт = 5120 байт = 5242880 бит
*Год.exe - неправильное название из за символа *
Новый!_Год.txt - правильное, нет запрещенный символов
Новый-год:exe - неправильно из-за двоеточия, там должна быть точка
Новый год,exe - неправильно из-за запятой, там должна быть точка
Держи.Только я незнаю,является ли ноль положительным числом