Program tcd; var a,b,c: integer; begin readln(a,b,c); writeln(,a,'*',b,'*',c,'=',a*b*c); writeln(,a,'+',b,'+',c,'=',a+b+c); if (a> b) and (a> c) then writeln(a,' -большее'); if (b> a) and (b> c) then writeln(b,' -большее'); if (c> a) and (c> b) then writeln(c,' -большее'); end.
Спасибо
Ответ дал: Гость
program aaa; var d, n : integer; begin write ('введите число n-'); readln (n); writeln('делители числа: '); for d : =1 to n do if n mod d = 0 then writeln (d)end.
Ответ дал: Гость
var s: string; i: longint; begin readln(s); for i: =length(s) downto 1 do begin if s[i]=' ' then delete(s,i,1); if (s[i]> ='1')and(s[i]< ='9') then delete(s,i,1); end; writeln(length(s)); end.
Популярные вопросы