Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Feraaa2108
30.10.2021 08:43 •
Информатика
Объясние,, как вводить эту запись в программе pascal? я ввожу, у меня в итоге выдает s: =0; for j: =10 to 15 do begin s: =s+2*j; write(s) end.
Показать ответ
Ответ:
ybr643
07.10.2020 09:54
Var s,j:integer;
begin
s:=0;
for j:=10 to 15 do s:=s+2*j;
writeln(s);
end.
Результат:
150
0,0
(0 оценок)
Ответ:
danil24451
07.10.2020 09:54
var
j, s: integer;
begin
s:=0;
for j:=10 to 15 do
begin
s:=s+2*j;
write(s)
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ксю878
09.10.2020 20:04
Отметьте объект школьного кабинета информатики: •компьютер •окно файла •окно программы •рабочий стол •окно папки...
polina04081
26.12.2021 10:50
На числовой прямой даны два отрезка: P = [8, 16] и Q = [25, 40]. Отрезок A таков, что формула ((x ∈ P) ∨ (x ∈ Q)) → (x ∈ A) истинна при любом значении переменной x. Определите...
rystamgfţ
29.05.2022 19:48
Найдите объем текста в Кбайтах, если известно, что в нем 10 страниц, а на каждой странице по 512 символов, каждый из которых кодируется одним байтом....
Ник555555551
11.12.2022 01:28
Какое слово лишнее: компьютер система принтер сканер...
Safon1984
22.05.2021 20:39
Удвух ежиков было 7 яблок . может ли у одного из них быть на 6 яблок больше че у другого...
kir1kir1
22.09.2021 13:17
Дан массив целых чисел выяснить каких элементов в массиве больше положительных или отрuцательных решение pascal....
marceries
28.08.2020 05:12
Дано уравнение 27х^2+15x-2=0 отделить корни уравнения на отрезке [-1; 1] шаг табулирования взять равным 0,2 найти положительный корень уравнения с точностью e=0,01 используя...
belok909
16.05.2021 13:02
Y = a^3 – b / c + d решить пример на языке ассемблер...
AngelinaMail11
26.05.2023 14:05
нужна ваша по информатике 1 курс. Нужно найти число равное 0 в массиве из 100 значений A(1)...A(100) и написать это на языке алгоритмов...
Pomogite20000p
12.04.2023 20:34
Нужно составить код программы на паскаль по блок-схеме....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
s:=0;
for j:=10 to 15 do s:=s+2*j;
writeln(s);
end.
Результат:
150
j, s: integer;
begin
s:=0;
for j:=10 to 15 do
begin
s:=s+2*j;
write(s)
end;
end.