tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составьте программу вычисления
Составьте программу вычисления произведения s=1*2+3*4+5*6++101*102 (в паскале)
wwwnikitafakh
2 20.08.2019 10:30
1
Ответы
dhgti
05.10.2020 07:06
Var i,a1,a2:integer;
sum:longint;
begin
a1:=1;
a2:=2;
sum:=0;
while (a1<102) or (a2<102) do
begin
sum:=sum+(a1*a2);
a1:=a2+1;
a2:=a1+1;
end;
writeln(sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ibragimovakatia
22.07.2019 10:50
Вычислить a(a+1)(a++n), для a и n введённых с клавиатуры....
Пень01
22.07.2019 10:50
1)обчислити добуток и килькисть всих парних чисел вид 15 до 30, використовуючи цикл for 2)обчислити k=cos1/6+cos1/5+ , а то ничего не понятно...
jgjgjgjh
22.07.2019 10:50
Пользователь вводит объем информации в байтах. перевести это число в кб, мб, гб, тб (var x, a, b, c; real; )...
dashafns29
22.05.2020 10:30
8. Записать (словом) словами: Количество измерений громкости звука за единицу времени.9. Записать (словом) словами: Форма записи звука в виде колебаний.10. Записать (словом)...
Виталий0003
03.05.2019 13:09
Разработайте алгоритм вычисления значения y для любых а, в и с y = a2 + в2 + с2...
polcha2002
03.05.2019 12:55
Найдите количество исковой буквы в заданном слове в паскаль нужно сейчас сдавать ...
daa86
03.05.2019 12:54
Тема: сдвиг информорматикасделайте программу дано 4 числа a b c d сдвиньте на d c b a 1 2 3 4 сдвиньте на 4 3 2 1 ! 15 ! ...
knowyourway54
29.06.2019 07:30
45 ! , милинькие ! у кого есть учебник: информатика и икт, 2 часть, 3 класс, е.п. бененсон, а.г. паутова. страничка 56, а номер 52. (б): на рисунке показаны животные из красной...
RitkaRita
03.11.2020 09:30
Суреттерді салыстыр.Олардың қалай салынғанын талда....
logan8
03.11.2020 09:30
Записать значение формулы: = МАКС (А3 : В6) ( : 1) 36 6Записать значение формулы: = СУММ (В6 : В8) ( : 1) Введите ответ 7Записать значение формулы: = СУММ (А1 : В3) ( : 1) Введите...
Популярные вопросы
Xco3-29грамм o3-6 грамм протонов найти порядковый номер х...
2
14. докажите, что если через точку пересечения диагоналей трапеции с основаниями...
2
Просклонять один ребенок,два ребенка и до десяти,особенно волнует как будет...
2
Начерти прямоугольный параллелепипед, у которого сторона равна 4 см .найди...
1
Еще если можно такой вопрос! просклонять -один шустрый жеребенок и так до...
3
Разложите на множители: разложите на множители: ab(a-b)-ac(a+с)+bc(2a+c-b)...
2
Как перевести на это предложение. ? когда я прибыл в университет, мне сказали,...
3
Вчём суть угличского дела ? был ли причастен борис годунов к смерти царевича...
1
Втрадиционном а) человек стремиться включиться в существующую систему социальных...
2
Log₀,₅(x-2)≥-2= варианты ответов: 4,5,0,1...
1
sum:longint;
begin
a1:=1;
a2:=2;
sum:=0;
while (a1<102) or (a2<102) do
begin
sum:=sum+(a1*a2);
a1:=a2+1;
a2:=a1+1;
end;
writeln(sum);
end.