Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Anastasias223
08.10.2021 12:12 •
Информатика
Выдает ошибку 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.
Ответ:
жека569
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 оценок)
Популярные вопросы: Информатика
misspolina967
09.08.2021 12:57
Есть функция function f(p:integer):integer; begin if p 1 then f:=p*f(p-1) else f:=1; end. Что будет выведено при вызове этой функции writeln(f(5))?...
hdn12
21.03.2023 10:48
Напишите в столбик последовательность своих действий при ежедневной чистке зубов...
маг42
30.03.2021 18:40
1) д _ ловая бумага; 2) подтверждает ф _ _ т или п _ _ _ о; 3) на нем есть п _ _ _ ть; 4) он заверен п _ _ _ _ _ ю....
72737
30.03.2021 18:40
Стол свойство объекта, существенные с точки зрения...
Apple8066
23.08.2021 03:57
Япытаюсь скачать програму и тут ошибка! что делать? я пробовал скачать на диск d тоже самое....
erke22
14.07.2021 08:46
1. что используется для хранения связанных между собой данных: 1) системы счисления; 2) алфавитные указатели; 3) базы данных; 4) системы базами данных? 2. строки табличной...
vikaraduga
08.03.2021 12:00
Решить карточку по информатике,...
inikulin00864
22.12.2021 11:14
Система это 1Компьютер 2Совокупность 3взаимосвязанных между собой объектов 4 единое техническое устройство...
gopas11123
18.02.2022 10:24
построить чертеж в компасе...
nakoreshoy50qg
07.09.2021 12:50
Установите соответствие между номером последовательности команд (1-4) для ввода последовательности текстовых данных в диапазон ячеек (А-Д): №1 №2 №3 №4 №5 Ввести в первую...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.