На обработку поступает положительное целое число,не превышающие 10 в 9 степени.Нужно написать программу которая выводит на экран сумму честных цифр этого числа,не меньших 5.
1. Как выше уже сказали, имя файла ОБЫЧНО состоит и правда из двух частей. Это придумали еще давно, сначала просто для удобства, чтобы понимать, что за информация содержится внутри (текст, звук и т. д.) . Впоследствии операционные системы стали использовать расширение для распознавания содержимого и запуска необходимого приложения для обработки файла, или распознавала, что файл является программой и запускается сам (это в Windows и DOS файлы с расширением *.exe, *.bat, *.com) а вот в Линуксе исполняемый файл может иметь любое расширение, или вообще его не иметь. В Windows ( а ранее в DOS) использовалось расширение с ограничениями, в три знака. Сейчас Windows использует и больше знаков для работы (например *.docx). В принципе имя файла может состоять хоть из одной, хоть из десяти частей. Главное его открыть нужной программой, чтобы прочитать.
Program Massivi; var i: Byte; c: array [1..10] of Integer; a, b: array [1..5] of Integer; begin // Zapolnee massiva c: for i:=1 to 10 do begin // Wtire('C['+IntToStr(i)+']='); ReadLn(C[i]); end;
// Formirovanie massivov a i b. for i:=1 to 10 do // if i mod 2 = 0 then a[i div 2]:=c[i] else b[i div 2 + 1]:=c[i];
// Write('Massiv a: '); // for i:=1 to 5 do Write(IntToStr(a[i])+', '); // WriteLn('');
// Write('Massiv b: '); // for i:=1 to 5 do Write(IntToStr(b[i])+', '); // WriteLn('');
// Write('Massiv c: '); // for i:=1 to 10 do Write(IntToStr(c[i])+', '); end.
var s,n:integer;
begin
s:=0;
readln(n);
while n>0 do begin
if ((n mod 10) mod 2 = 0) and (n mod 10>=5) then
s:=s+n mod 10;
n:=n div 10;
end;
writeln(s);
end.