Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
vladchesak
09.12.2020 23:20 •
Информатика
Pascal ! составить программу которую выводит вот такую штуку,т.е.: 1)s=2+4++20 2)s=1+2++20
Ответ:
Mon45
07.10.2020 20:21
Решение для задач ниже в комментарии
0,0
(0 оценок)
Ответ:
Webymnyaha
07.10.2020 20:21
Var
i,s:integer;
begin
Write('S=2');
i:=2;
S:=i;
while i<20 do begin
i:=i+2;
Write('+',i);
s:=s+i
end;
Writeln('=',s)
end.
Результат
S=2+4+6+8+10+12+14+16+18+20=110
var
i,s:integer;
begin
Write('S=1');
i:=1;
S:=i;
while i<20 do begin
i:=i+1;
Write('+',i);
s:=s+i
end;
Writeln('=',s)
end.
Результат
S=1+2+3+4+5+6+7+8+9+10+11+12+13+14+15+16+17+18+19+20=210
0,0
(0 оценок)
Популярные вопросы: Информатика
НиколайКот
14.07.2020 23:08
Сколько трехзначных чисел можно записать с цифр 1,3,5,7 при условии что в записи числа не должно быть одинаковых цифр изобразите с графа ! ; ;...
julia4171822
14.07.2021 04:11
Как в Python ввести массив?...
yurafenchishin
18.06.2020 20:25
Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит 8.по введенным координатам двух полей выясните являються эти поля одного цвета...
Ris1234
09.05.2022 05:26
Высоцкий. «Утренняя гимнастика» Определи многозначные слова в тексте.Посмотреть стихотворениеВерных ответов: 2вирусмирзаболеваниебег...
aliosha1337
29.08.2020 22:19
5- тапсырма. Берілген екі тақырыптың бірін таңдап, шығармалардың заманауи жаңашылдығын ашып, эссе жазыңыз [8] Көлемі- 100-120 сөз 1. Жас бала анадан туғанда екі түрлі...
alexguzz55
19.10.2020 23:21
Вещества подвергаются различным изменениям. Эти изменения свеществами относят к физическимили химическим явлениям.Из представленного списка выберитехимические явления:1.Покрытие...
SuperLexa555
21.11.2021 13:26
Единица измерения относительной плотности газов а)килограммы б) разы в)литры г)секунды д)моль....
zhenya28081999
10.12.2020 12:05
Десятичные дроби а)Сколько надо заплатить за 1 порцию лагмана, манты и чая.б)Сколько будет стоить 1 порция борща, 1 порция супа и лапшы.в)Сколько будет стоить 1 порция манты,1...
Tim4ik0205
28.11.2021 03:23
Найдите значение коэффициента a, если известно, что график функции y=ax^2 проходит через точку с координатами А(1;3)...
snopchenkoilya
15.02.2020 15:51
Реши уравнение:(3 2/3х + 1/6)-3 7/12=1 1/6...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
i,s:integer;
begin
Write('S=2');
i:=2;
S:=i;
while i<20 do begin
i:=i+2;
Write('+',i);
s:=s+i
end;
Writeln('=',s)
end.
Результат
S=2+4+6+8+10+12+14+16+18+20=110
var
i,s:integer;
begin
Write('S=1');
i:=1;
S:=i;
while i<20 do begin
i:=i+1;
Write('+',i);
s:=s+i
end;
Writeln('=',s)
end.
Результат
S=1+2+3+4+5+6+7+8+9+10+11+12+13+14+15+16+17+18+19+20=210