Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
alina200120
17.10.2022 17:09 •
Информатика
Выдает ошибку program1.pas(5) : встречено 'to', а ожидался оператор посмотри , что не так в пятой строке. program n1; var e, a: real; n, i: integer; begin write('n='); readln(n); e: =1; to n do begin a: =a/i; e: =e+a end; writeln('e=', e) end.
Ответ:
Regina2203021
05.10.2020 16:53
Program n1;
Var E, a: Real;
N, i: Integer;
Begin
Write('N='); ReadLn(N);
E:=1;
For i:=1 To N Do
Begin a:=a/i;
E:=E+a
End;
WriteLn('E=', E)
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
aysun222222
03.03.2022 21:20
Задана норма времени пробега дистанции. Составить программу, анализирующую реальное время пробега спортсмена, и выводящую сообщения: «Результат равен норме», «Пробежал дистанцию...
lava777pop
05.06.2021 07:20
Что больше терабайта ответь кто нибудь...
Thelow26
05.11.2022 05:43
Какая информация нужна человеку, приступающему к ремонту квартиры? можно ли информацию потерять?...
HesteVlad
05.01.2020 04:10
Разложите на множители: -1+49a^4b^8...
klimov200293
05.01.2020 04:10
Ветер весело шумит подчеркнуть обстоятельства...
zandaryanartem1
05.01.2020 04:10
Тест на внимательность. жила-была девочка сиротка. у неё было 5 кроликов, 3 попугая, 2 кошки, пять собак и два хомяка. у неё закончился корм и она пошла в магазин. она шла лесом...
56анна2141
05.01.2020 04:10
Вкаком порядке на кроне дерева желтеют листья...
Dudochka237
05.01.2020 04:10
Пмогите ! сделай краткую запись к следуюшей ,и реши её . серёже 10 лет . он на 4 года моложе андрея, а борис в 2 раза моложе андрея . сколько лет мама приедет завтра брат не...
5rv
05.01.2020 04:10
При каком значении переменной n значение выражения 3(2n-4)+5n-(28+n) равно 0?...
gasersazru
05.01.2020 04:10
Сложите из 6 спичек четыре равносторонних треугольника...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Var E, a: Real;
N, i: Integer;
Begin
Write('N='); ReadLn(N);
E:=1;
For i:=1 To N Do
Begin a:=a/i;
E:=E+a
End;
WriteLn('E=', E)
End.