const n = 20;
var
a, b: array[1..n] of integer;
i, count: integer;
begin
for i := 1 to n do begin
a[i] := 1 + random(5);
b[i] := 1 + random(5);
if(a[i] = b[i]) then begin
writeln('Номер: ', i, ' Значение: ', a[i]);
inc(count);
end;
end;
if(count = 0) then writeln('Совпадений нет');
end.
var
x,x1:integer;
begin
readln(x);
if (x div 10 + x mod 10 >= 10) then writeln ('Является')
else begin x1:=x; while (x1 div 10 + x1 mod 10 < 10) do x1:=x1+1; end;a
if (x div 10 + x mod 10 < 10) then writeln('Нужно увеличить на ',x1-x);
end.
Погнали.
В первом блоке у нас объявление переменных целого типа b равное 20 и и c равное нулю (0).
Следующий блок открывает цикл с условием, пока b (20) > 3, выполнять блок, который увеличивает значение переменной c = c + b и b = b - 5.
Накатав сей алгоритм на шарпе, вот результат лога из консоли:
Смотря о чем ты
выберешь нужный
1 вариант
Копирование
создание
перемещение
удаление
2 вариант
Это относится к информации вообще
Хранение
Обработка
Передача
выбери что нужно или по канкретней вопрос в коментарии