М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
avamini2007
avamini2007
09.09.2020 05:50 •  Информатика

1. Наведіть приклади значень текстових величин. 2. Чим відрізняються значення символьного та рядкового типів? 3. Як описати величини символьного та рядкового типів мовами програмування? Що спільного та які є відмінності в описі текстових величин мовами Free Pascal і Python? 4. Які спільні властивості мають текстове поле й текстовий напис? Які є особливі властивості текстового поля? 5. У яких випадках у середовищі програмування Lazarus властивості Enabled текстового поля слід надати значення False? 6. Які операції можна виконувати з текстовими величинами? 7. Які функції використовують у мовах програмування для опрацювання текстових величин? 8. Чому програмний код у проекті може не виконатися взагалі, або в програмі можуть бути отримані неправильні результати? 9. Яких помилок допускаються при складанні програм у середовищах програмування? 10. У чому полягає процес налагодження програми? 11. З якою метою у програмах, написаних мовами програмування, використовують коментарі? 12. Як у середовищах програмування здійснюють контроль над значеннями змінних у процесі виконання програми?

👇
Открыть все ответы
Ответ:
крыл8888
крыл8888
09.09.2020
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var p:=ArrRandom(200,-99,99); p.Println;
  Writeln('Числа, кратные трем');
  p.Where(k->k mod 3=0).Println;
  Writeln('Сумма положительных равна ',p.Where(k->k>0).Sum)
end.

Пример
-46 86 -75 83 87 -17 -23 -46 -95 8 19 -2 -93 -18 -47 65 66 81 77 79 30 -40 -76 99 -19 67 -39 25 21 65 64 49 54 -9 18 -98 -43 84 76 -9 64 53 86 -48 -77 -51 -93 22 -31 76 -93 86 -45 -94 92 93 62 -74 3 -79 -77 52 33 -61 44 69 43 15 63 -48 8 82 -94 -14 -84 76 -27 72 76 -67 60 38 -44 45 59 78 -6 48 -1 24 -61 -68 -18 55 -31 -88 -79 48 7 -46 5 -8 58 -82 -31 -75 80 69 90 -83 21 90 -51 -30 -39 -16 -3 87 -20 66 -25 94 -84 -61 -87 -24 0 -50 -82 -96 55 25 -35 23 27 -31 80 -62 -23 34 97 25 58 -17 -96 -51 83 -88 -5 85 15 -67 -31 41 78 11 -24 19 -95 92 24 30 52 86 -39 96 25 26 43 91 3 -41 11 45 68 50 -64 33 -64 64 -7 -11 55 -68 -12 22 -43 24 44 -83 92 -38 -67 -16 -89 -32 73 71 -77 -93
Числа, кратные трем
-75 87 -93 -18 66 81 30 99 -39 21 54 -9 18 84 -9 -48 -51 -93 -93 -45 93 3 33 69 15 63 -48 -84 -27 72 60 45 78 -6 48 24 -18 48 -75 69 90 21 90 -51 -30 -39 -3 87 66 -84 -87 -24 0 -96 27 -96 -51 15 78 -24 24 30 -39 96 3 45 33 -12 24 -93
Сумма положительных равна 5671
4,7(91 оценок)
Ответ:

Я не могу загрузить файлы, но вот коды. Создай файлы и вставь

repeat_.pas:

program repeat_;

var n, k, counter: Integer;

begin

ReadLn(n);

k := 1;

counter := 0;

repeat

if (n mod k = 0) then

begin

counter += 1;

if n <> k then

Write(k, ' ')

else

Write(k, '; ');

end;

k += 1;

until n < k;

WriteLn('всего делителей - ', counter);

end.

while_.pas:

program while_;

var n, k, counter: Integer;

begin

ReadLn(n);

k := 1;

counter := 0;

while (k <= n) do

begin

if (n mod k = 0) then

begin

counter += 1;

if n <> k then

Write(k, ' ')

else

Write(k, '; ');

end;

k += 1;

end;

WriteLn('всего делителей - ', counter);

end.

4,4(81 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ