На Паскале:
program Program1;
var i, j, n, k: integer;
var result: real;
var array1: array [1..255] of real;
begin
result := 0;
write('Введите значение N (не более 255): ');
readln(n);
for i := 1 to n do
begin
write('Введите значение ', i, ' элемента массива: ');
readln(array1[i]);
end;
begin
writeln('Массив, размером - ', n, ' элементов(а):');
for i := 1 to n do write(array1[i], ' ');
writeln;
end;
for i:=1 to n do
begin
k := 0;
for j:=1 to n do
if array1[i] = array1[j] then k := k + 1;
if k = 1 then result := result + array1[i];
end;
writeln('Сумма уникальных элементов массива = ', result);
<span>end.</span>
Репа,внучка,кошка,мышка,бабка,мышка,жучка тянет внучку.
a)
25 div 3 = 24:3=8
73 div 7 = 70:7= 10
31 div 7 = 28:7= 4
25 mod 3= 25-24=1
73 mod 7 = 73-70=3
31 mod 7 = 31-28=3
b)
2 div 3 + 1 = 0+1=1
17 - 23 div 7 = 17 - 3 = 14
31 div (7+5) = 31 div 12 = 2
25 mod 3 + 25 div 3 = 8+1=9
47 div (3 mod 7) = 47 div 3 = 15
31 mod (7 div 2) = 31 mod 3 = 1
Я думаю, что не существует. Звезды называются людьми для удобства. И хоть звезд во вселенной миллиарды, но людьми наблюдается не очень много звезд.
Если звезды называются для удобства человека, то наличие двух звезд с одним и тем же именем может вызвать путаницу.
Var N,K : integer;beginK := 10; read(N); if (N div 10 + N mod 10) < K then begin writeln('Сумма цифр числа N меньше K'); end; writeln('N = ', N);end.
