Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
budarnyypetr
04.12.2020 16:32 •
Информатика
Впаскале нужно найти сумму 10 случайных чисел в промежутке от 0 до 10 с reapit
Показать ответ
Ответ:
lavira3
06.10.2020 13:09
Вот,только не REAPIT, а REPEAT
program ex1;
var a,z,l:integer;
begin
randomize;
repeat;
a:=random(11);
z:=z+a;
l:=l+1;
until l=10;
write('ответ:',z);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
lobster32
29.11.2020 06:19
ИНТЕРНЕТ УРОК Дана трассировочная таблица. Определите, чему будет равно значение переменной Ѕ на пятом шаге трассировки...
Марано
17.10.2022 18:46
. Каков минимальный объем памяти (в байтах), достаточный для хранения чернобелого растрового изображения размером 32 х 32 пикселя, если известно, что в изображении используется...
popovichmilanap06lkc
07.09.2021 05:40
Какое служебное слово в языке Pascal следует перед условием цикла с постусловием? A) repeat; b) while, B )unt; r) do...
AmiKot1105
22.12.2022 07:18
. Напишите программу, которая в последовательности натуральных чисел определяет количество трёхзначных чисел, кратных 4. Программа получает на вход...
букет223
01.07.2020 00:40
Свойства алгаритма дискроетность означаеть...
malinkarinka599
13.08.2021 14:33
Как называются объекты составляющие систему?...
7777kiti
14.04.2023 05:23
Дана программа: Program Primer; Var A,result : real; Begin Writeln( Введите значения переменной A ); Write( A= ); Readln(A); Result := sqr((9+A)*10); Writeln ( sqr((9+A)*10)...
MilkaV
31.08.2022 19:18
Что выдаст программа, если ввести следующие числа 4 12 14 15 24 program m1; var i,n,a,min:integer; begin readln(n); min:=30000; for i:=1 to n do begin readln(a); if (a mod 10...
tomchakd
28.08.2021 21:29
При каком значении x на экран выводится да if x mod 2= 0 then writeln `да` else writeln `нет` 12, 15 ,17, 19, 21....
ГузоАдела
31.07.2020 23:58
Используя таблицу шестиЗначных шестнадцатеричных RGB- кодов, зашифруйте следующую картинку:...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
program ex1;
var a,z,l:integer;
begin
randomize;
repeat;
a:=random(11);
z:=z+a;
l:=l+1;
until l=10;
write('ответ:',z);
end.