Лучший ответ
Ответы
-
0 0
Дима (40) 7 (31960)478265 16 лет
ну, во-первых, ты должен указывать, какую тему вы сейчас проходите, иначе ответы тебе будут бесполезны - препод скажет "мы этот метод ещё не проходили"
во-вторых, тебе придётся заточить код под свои нужды, так что хоть немного шарить в предмете ты должен. Дерзай!
program srA;
{$APPTYPE CONSOLE}
uses SysUtils;
var i, sum, zer, len:integer;
s:string;
begin
repeat
write('numeral = ');
readln(s);
sum:= 0;
zer:= 0;
len:= length(s);
for i:= 1 to len do sum:= sum + strtoint( s );
for i:= 1 to length(s) do if s = '0' then zer:= zer+1;
writeln('sum = ', sum / (len-zer) );
until s = 'q';
end.
program drO;
{$APPTYPE CONSOLE}
uses
SysUtils, shellapi;
var chis, znam: integer;
begin
write('chislitel ');
readln(chis);
write('znamenatel ');
readln(znam) ;
if chis / znam > 0 then writeln('znak: +');
if chis / znam < 0 then writeln('znak: -');
if chis / znam = 0 then writeln('znak: 0');
writeln('celaja chastj ', trunc(chis/znam) );
writeln('sokrawenie drobi');
shellexecute(0,nil,'explorer','"http://forum.codenet.ru/showthread.php?t=31087"',nil,0);
writeln('ЇаҐбб нЁ-ЄЁ вг ЄaHвЁHЁг¬*');
readln;
end.
________________________________
никто не застрахован от ошибок.