Var y, x: integer;
begin
readln(y);
x:=y-2;
writeln(y, '= ', x, '+2');
end.
Так как-то
Использовать Робот
алг
нач
нц 2 раз
нц 4 раз
закрасить
вниз
кц
нц 6 раз
закрасить
вправо
кц
нц 4 раз
закрасить
вверх
закрасить
кц
нц 4 раз
влево
кц
нц 2 раз
вниз
закрасить
кц
нц 2 раз
вправо
закрасить
кц
вверх
закрасить
нц 4 раз
если справа свободно и снизу свободно то
вправо
вниз
все
кц
кц
кон
Var
m,n,s,p:integer;
Begin
read(m,n,s);
p:= (s mod 10) + (s div 100 mod 10); {p сумма цифр}
If (p mod m = 0) and (p mod n = 0) then
writeln('Числа ',m,' и ',n,' являются делителями числа ',p)
else
writeln('Числа ',m,' и ',n,' не являются делителями числа ',p);
end.
Объяснение из скобок можешь убрать
<span>#include <iostream></span>
#include <ctime>
#include <cstdlib>
using namespace std;
int main()
<span>{ srand(time(NULL));</span>
<span> const int N(10);</span>
<span> int a[N], c(0), b(100), count(0);</span>
<span> for (int i(0); i<N;i++){</span>
<span> a[i]=c+rand()% (b-c+1);</span>
<span> count+=a[i];</span>
<span> }</span>
<span> for (int i(0); i<N; i++){</span>
<span> cout << a[i]
<< " ";</span>
<span> }</span>
Cout << count/float(N);
<span>
return 0;</span>
}
Это принять значение за константу. Значение в этой ячейке не будет изменяться.