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

Ответы 6

  • спасибо
    • Автор:

      acedk2l
    • 6 лет назад
    • 0
  • вы не могли бы поставить лучший ответ? :D
  • Я не могу, у меня нет значка! может потом появится, то я обязательно поставлю
    • Автор:

      hubbysyd8
    • 6 лет назад
    • 0
  • Я не могу, у меня нет значка! может потом появится, то я обязательно поставлю
  • спасибо :D
  • 1)var a:integer;beginwriteln('введите число');readln(a);writeln('1',a,'1');end.2)var a,b,c:integer;beginwriteln('введите число');readln(a);for c:=10 to 99 dobeginif (c mod a = 0)  or (a = c mod 10) or (a = c div 10) thenwriteln(c);end;end.3) var b,c:integer;a:array [1..100] of integer;beginwriteln('введите длину массива');readln(b);for c:=1 to b dobeginwriteln('введите элемент массива');readln(a[c]);a[c]:=a[c]+1;writeln(a[c]);end;end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years