Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program m;
uses crt;
var a,b,c,sum: integer;
begin
clrscr;
readln(a,b,c);
sum: =a+b+c;
writeln(' ',sum);
readkey;
end.
есть три цифры 1,2,3 которые могут стоять на 4-х местах
например 1111 каждую цифру можно использовать повторно
значит всего получится 3*3*3*3=81 число
((1+2): 3+4): 5=1
1+2+3-4+5-6=1
(1+2+3+4): 5+6-7=1
(1+2+3-4+5-6+7): 8=1
var a: array [1..16] of integer;
i,s,c,d: integer;
randomize;
read(c,d);
for i : = 1 to 16 do begin
a[i]: = random(d+c) - c;
if a[i]> 0 then s: = s + a[i];
end;
writeln(s);
Популярные вопросы