Program task;
var x,i,sum:integer;
begin
readln(x);
sum := 0;
for i := 1 to 4 do
begin
sum := x mod 10 + sum;
x := x div 10;
end;
writeln(sum);
readln;
<span>end. </span>
4. С:\учёба\математика\ГИА.
С:\учёба\математика
С:\учёба\математика\каталог1
С:\учёба\математика\каталог1\каталог2
подходит:
С:\учёба\математика\2013\Расписание
Ответ: 4
5.
1) afeget.doc
2) ufegelian.dim
3) zfegininal.disk
В электронных таблицах строки нумеруются. Следовательно обозначением строки является номер строки.
Введя данный код в турбо Паскаль был дан ответ: 51