Требуется написать программу, которая будет выполнять действия описанные ниже. желательно с комментированиемvisual studio, на c#) символы и их коды. формирование строк 1.22. дана строка, изображающая целое положительное число. вывести сумму цифр этого числа. 1.23. дана строка, изображающая арифметическое выражение вида «±±…±», где на месте знака операции «±» находится символ «+» или «–» (например, «4+7–2–8» вывести значение данного выражения (целое число). 1.24. дана строка, изображающая двоичную запись целого положительного числа. вывести строку, изображающую десятичную запись этого же числа.

Переменную строки буду называть .

1.22.

1.23.

1.24.

Потребуется использовать

ответ:

. в нужно вывести все составные числа из промежутка [2; n]. код программы:

program lab3;

var i,n,j,s,l: integer;

m: real;

begin

readln (n);

for i: =2 to n do

begin

s: =trunc (sqrt (i));

for l: =2 to s do

begin

m: = i mod l;

if m=0 then

write (' ',i);

end;

end;

end.

но проблема - как только s становится больше 2, составные числа начинают несколько раз повторятся, т.к., например 12 делится и на 2 и на 3. вопрос: как мне сделать выход из цикла после первого успешного деления?

var

i, n, j, s, l: integer;

m: real;

begin

readln(n);

for i : = 2 to n do

begin

s : = trunc(sqrt(i));

for l : = 2 to s do

begin

m : = i mod l;

if m = 0 then

begin

write(' ', i);

break;

program P1;
uses
crt;
var
A : array[1..3] of array [1..4] of longint;
i,j : integer;
begin

clrscr;

randomize;

writeln('Massiv : ');

for i := 1 to 3 do
begin

writeln('');

for j := 1 to 4 do
begin
A[i][j] := random(15)+random(5)-random(5);

write(A[i][j]:2,' ');
end;

end;

for i := 1 to 3 do
for j := 1 to 4 do
begin

if A[i][j] > 10 then
A[i][j] := i - j;

if (A[i][j] >= -5) and (A[i][j] <= 5) then
A[i][j] := sqr(i);

end;

writeln('');
writeln('');

writeln('Itogoviy massiv : ');

for i := 1 to 3 do
begin

writeln('');

for j := 1 to 4 do
begin

write(A[i][j]:2,' ');
end;

end;

readln;
readln;

end.