Есть ответ 👍

1. Var
y:real;
i:integer:
………………………
y:=1;
For i:=2 to 4 do y:=y+i;
2. Var
y:real;
k:integer:
………………………
y:=2;
For k:=4 downto 1 do y:=y*k;
3. Var
y:real;
n:integer:
………………………
y:=5;
For n:=1 downto 4 do y:=y+n;
4. Var
y:real;
i:integer:
………………………
y:=1;
For i:=1 to 3 do
Begin
y:=y+1;
y:=y+i;
end;
5. Var
y:real;
i:integer:
………………………
y:=0;
For i:=4 to 6 do y:=y+i;
y:=y/10;
6. Var
s:real;
n:integer:
………………………

s:=0;
For n:=4 downto 3 do
Begin
s:=s+n;
s:=s*10;
end;

118
439
Посмотреть ответы 1

Ответы на вопрос:

PonchiKmm
4,6(33 оценок)

// pascalabc.net 3.2, сборка 1353 от 27.11.2016 // внимание! если программа не работает, обновите версию! begin   var dig: =['0'..'9'];   var glas: =['a','e','i','o','u','y'];   var sogl: set of char: =['a'..'z']-glas;   var alpha: ='0123456789abcdefghijklmnopqrstuvwxyz';   var n: =readinteger('количество символов: ');   var a: =seqrandom(n,1,36).select(k-> alpha[k]).toarray;   a.println;   a.where(c-> c in glas).concat(a.where(c-> c in .       concat(a.where(c-> c in end. пример количество символов: 50 xkdh00nhw8qr32cgcxiwm8ewbnqagmiquew3e6bc7rs2a05ids ieaiueeai008328367205xkdhnhwqrcgcxwmwbnqgmqwbcrsds

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS