tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Выдает ошибку program1.pas(5)
Выдает ошибку 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.
ulpashkova
3 24.08.2019 15:30
0
Ответы
Dimasgta7
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
pakhomovalexandra
03.10.2019 21:10
Выполнить перевод числа 77,0625 из 10с.с. в 8 с.с выполнить перевод числа 33211,012 из 4 с.с. в 16 с.с....
4ev43yi3
03.10.2019 22:20
Впаскале. с цикла for нужно составить 5 примеров (2*2, 4*7 и тд), а после вывести на экран кол-во правильных ответов.(например: вы правильно ответили на 2 примера)...
vladkorkin75
26.10.2020 18:38
Вычислите значения функции y=3x-4 при x=3;5;7;9;11....
mane2009
08.06.2019 10:50
1. устройство, производящее преобразование аналоговых сигналов в цифровые и обратно, называется: 1. сетевая карта; 2. модем; 3. процессор; 4. адаптер....
aidaXdXd
08.06.2019 10:50
Эффективность компьютерной связи зависит обычно от: производительности процессора; емкости памятивозможности расширения,все вышеперечисленное...
nikgolubev2000
08.06.2019 10:50
Решить! дано натуральное n. вычислить: y=1*3*5*-1)....
ParkAnna
08.06.2019 09:56
Найти сумму целых положительных чисел, больших 20, меньших 100 и кратных 3. на языке java script...
Pshukova
08.06.2019 10:40
Определить значение переменной у после выполнения следующих фрагментов программы: a) var у : real; i : integer; у : = 1 ; i : = 5; while i 2 do i: = i - 1; y: =y + 1 * i;...
Ипак44
08.06.2019 10:40
Заполнить массив случайными числами в интервале [-1,1] и подсчитать количество нулевых элементов...
aleksey778
08.06.2019 10:40
Для массива x(n) вывести на печать элементы, кратные трем и вычислить произведение остальных элементов....
Популярные вопросы
Укажите время с точностью до десятилетия когда началась опричина.Укажи...
2
Когда дается команда контрольный мяч?2 предложения, (。◕‿‿◕。)...
3
Индивидуально-типологические черты личности...
2
Задача по физике Тема Элементы цепи переменного тока я не понимаю эту...
3
Как ришить упражнение 6-7-8 можно без грутьаьаьбк ато бан ...
3
Кого називали енциклопедистами?...
2
Определите жесткость пружинного маятника, если период его колебаний равен...
3
8. Каких общечеловеческих проблем касается Руставели в своей поэме «Витязь...
3
Джек Лондон Любовь к жизни Человек стал бояться умереть насильственной...
2
Краткое содержание 44 параграфа по истории 5 класс вигасин...
1
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.