Program blabla; var a,b,s,p,d,o: integer icon

Program blabla; var a,b,s,p,d,o: integer


НазваниеProgram blabla; var a,b,s,p,d,o: integer
Размер1.49 Kb.
ТипДокументы

Program blabla;

var a,b,s,p,d,o:integer;

begin

writeln('введите а');

readln(a);

writeln('введите бэ');

readln(b);

s:=a+b;

p:=a*b;

d:=a div b;

o:=b mod a;

writeln('сумма=',s, ' произведение=',p, '; целочисленное деление а на бэ=',d, '; и, наконец, остаток от деления бэ на а=',o);

End.


Program xBlabla;

var a,b,c,n:integer;

begin

writeln('введите а');

readln(a);

writeln('введите бэ');

readln(b);

writeln('введите цэ уже наконец ');

readln(c);

if (a
n:=a;

if (b
n:=b;

if (c
n:=c;

writeln('наименьшее число ',n);

if (n mod 2)=0 then writeln('четное')

else write('нечетное');

End.


Program xBlabla;

var s,i,n,p:integer;

begin

writeln('скока?');

readln(n);

P:=1;

for i:=1 to n do

s:=s+i;

for i:=1 to n do

p:=p*i;

writeln('сумма ',s,', а вот произведение', p)

End.

Похожие:

Program blabla; var a,b,s,p,d,o: integer iconProgram blabla; var a,b,s,p,d,o: integer

Program blabla; var a,b,s,p,d,o: integer iconVar r,x: integer; n,s: real; begin

Program blabla; var a,b,s,p,d,o: integer icon1. procedure tfor Button1Click(Sender: tobject); var R: real; X,y: integer

Program blabla; var a,b,s,p,d,o: integer iconSouth and Central Asia Region Legislative Fellows Program Program funded by the U. S. Department of State Application Form

Program blabla; var a,b,s,p,d,o: integer iconSouth and Central Asian Region Legislative Fellows Program Program funded by the U. S. Department of State Application Form

Program blabla; var a,b,s,p,d,o: integer iconУма min var

Program blabla; var a,b,s,p,d,o: integer iconExchange Program Information Form

Program blabla; var a,b,s,p,d,o: integer iconEaslf/srt draft program

Program blabla; var a,b,s,p,d,o: integer iconWorkcamp program in japan 2013 index

Program blabla; var a,b,s,p,d,o: integer icon18 May! Fmc post Master Scholarship Program

Program blabla; var a,b,s,p,d,o: integer iconCredit suisse moscow 2-Year Internship Program

Вы можете разместить ссылку на наш сайт:
Документы


При копировании материала укажите ссылку ©ignorik.ru 2015

контакты
Документы