Дано: четырёхзначное число. найти: сумму его цифр,произведение

192

443

Посмотреть ответы 2

Ответы на вопрос:

Платонф

Информатика

4,5(91 оценок)

Program tz; var a,b,c: integer; i: byte; begin writeln('vvedite 4x znachnoe chislo'); readln(a); b: =1; c: =0; for i: =1 to 4 do begin b: =b*(a mod 10); a: =a div 10; c: =c+(a mod 10); end; writeln('proizvedenie = ',b); writeln('summa = ',c); readln; end.

невидимка789657

Информатика

4,6(74 оценок)

//pascalabc.net 3.2 сборка 1318 //1 uses graphabc; var a,h,x,y: integer; c: char; begin writeln('read or random? n/r'); repeat readln(c); until (c='n') or (c='r'); if c='r' then begin a: =random(200); writeln('длина ребра=',a,', объём=',power(a,3)); end else begin readln(a); writeln('объём=',power(a,3)); end; x: =windowwidth div 2; y: =round(windowheight*1/3); line(x,y,x,y+a); line(x+a,y,x+a,y+a); line(x,y+a,x+a,y+a); line(x+a div 2,y+a div 2,x+a div 2+a,y+a div 2); line(x,y,x+a,y); line(x+a div 2,y+a div 2,x+a div 2,y-a div 2); line(x,y,x+a div 2, y-a div 2); line(x,y+a,x+a div 2, y+a div 2); line(x+a div 2, y-a div 2,x+a div 2+a,y-a div 2); line(x+a div 2+a, y-a div 2,x+a,y); line(x+a div 2+a,y-a div 2,x+a div 2+a,y-a div 2+a); line(x+a div 2+a, y-a div 2+a,x+a,y+a); end. пример ввода: n 16 пример вывода: объём=4096 //2 var x,p: integer; beginwrite('x: '); readln(x); write('p: '); readln(p); if not(odd(x)) then writeln('кратно 2'); if x mod 3=0 then writeln('кратно 3'); if x mod p=0 then writeln('кратно ',p); end. пример ввода: 18 6 пример вывода: кратно 2 кратно 3 кратно 6