ПОМОГИТЕ ПОЖАЛУЙСТА, ОЧЕНЬ ПРОШУ. 1)Составте программу в Паскаль. приписать по 1 в начало и в конец записи числа n (было n=3456, стало n=134561). 2) найти все двузначные числа, которые числа которые делятся на m или содержат ц...

ПОМОГИТЕ ПОЖАЛУЙСТА, ОЧЕНЬ ПРОШУ. 1)Составте программу в Паскаль. приписать по 1 в начало и в конец записи числа n (было n=3456, стало n=134561). 2) найти все двузначные числа, которые числа которые делятся на m или содержат цифру m. 3) Составить программу, которая прибавляет ко всем элементам массива по единице ,если массив заполняется с клавиатуры.
Гость
Ответ(ы) на вопрос:
Гость
1) var a:integer; begin writeln('введите число'); readln(a); writeln('1',a,'1'); end. 2) var a,b,c:integer; begin writeln('введите число'); readln(a); for c:=10 to 99 do begin if (c mod a = 0)  or (a = c mod 10) or (a = c div 10) then writeln(c); end; end. 3)  var b,c:integer; a:array [1..100] of integer; beginwriteln('введите длину массива'); readln(b); for c:=1 to b do begin writeln('введите элемент массива'); readln(a[c]); a[c]:=a[c]+1; writeln(a[c]); end; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы