Program a1; uses crt; var a,ed,sot,des:integer; begin ASSIGN (input,'input.txt') reset (input); ASSIGN (output,'output.txt'); rewrite (output); writeln (' vvedite chislo'); readln (a); ed:=a mod 10; sot:=a div 100; des:=a div 10 mod 10; sum:=des+sot+ed; writeln (sum); readln; CLOSE (input); close (output); end.
Классификация на русском языке: Части речи: (самостоятельные, служебные, междометия), звуки: (твёрдые, мягкие). Суффиксы: (действительные, страдательные) Классификация на географии: Мировой океан: (Воды суши, вода в атмосфере, вода в живых организмах), воды суши: (реки, озёры, каналы). Классификация на математике: Уравнения: (простые, сложные), числа :(двухзначные и однозначные). Классификация на биологии: Вегетативные органы растений: (корень, побег), строение цветка: (чашеложе, лепестки, пестик, тычинка)
uses crt;
var a,ed,sot,des:integer;
begin
ASSIGN (input,'input.txt') reset (input);
ASSIGN (output,'output.txt'); rewrite (output);
writeln (' vvedite chislo');
readln (a);
ed:=a mod 10;
sot:=a div 100;
des:=a div 10 mod 10;
sum:=des+sot+ed;
writeln (sum);
readln;
CLOSE (input); close (output);
end.