Есть много разных способов решения этой задачи. Например:
var n:integer; b:boolean; m:set of 0..9;
begin
write('n='); readln(n);
m:=[];
b:=false;
while (n>0) and not b do
if n mod 10 in m then b:=true else begin m:=m+[n mod 10]; n:=n div 10; end;
if b then writeln('В записи введенного числа есть одинаковые цифры')
else writeln('В записи введенного числа нет одинаковых цифр');
end.
Пример:
n=123432
В записи введенного числа есть одинаковые цифры
Var a:array[1..3,1..4] of integer;
i,j,s:integer;
begin
for i:=1 to 3 do begin
for j:=1 to 4 do begin a[i,j]:=random(20)-10; write(a[i,j]:4);end;writeln;end;
for j:=1 to 4 do begin
s:=0;
for i:=1 to 3 do s:=s+a[i,j]; writeln('cумма ',j, ' столбца=',s);end;
<span>end.</span>
При выполнении оператора c:=7 в ячейку оперативной памяти компьютера с именем c заносится значение 7
при выполнении оператора m:=120 в ячейку оперативной памяти компьютера с именем m заносится значение 120
При выполнении оператора z:=c∗m значения ячеек оперативной памяти с
именами c и m переносятся в процессор, где над ними выполняется операция
умножения. Полученный результат заносится в ячейку оперативной памяти с
именем z
Ответ:
смотрите решение на листике
Объяснение:
#include <bits/stdc++.h>
using namespace std;
int main()
{
long long v, t, s;
cin >> v >> t;
s = (abs(v) * t) % 109;
if((v < 0)&&(s != 0)) s=109-s;
cout<<s;
return 0;
}<span>
</span>