var n,s:integer;
x1,x2,x3,x4:integer;
begin
write('Vvedite N = ');
read(n);
x1:=n div 1000;
x2:=n mod 1000 div 100;
x3:=n mod 100 div 10;
x4:=n mod 10 div 1;
s:=x1+x2+x3+x4;
writeln(s);
end.
1)2 2)3 3)1 4)3 вот как то так
Ну где качество печати ужасное и нужно распознать его - используют векторный метод распознания, а растровый накладывается на растровые шаблоны символов, которые хранятся в памяти системы
Жёский диск правильный ответ =)))))))))))))))))))))))))))))))
//Pascal ABC.NET 3.1 сборка 1219
Var
a:integer;
begin
readln(a);
while (a<=1000) do
a:=a+10;
writeln(a);
end.
Пример ввода:
567
Пример вывода:
1007