logo
Войти Регистрация Спроси ai-bota


Паитаоаипа
27.01.2023 18:09

Напишите программу для паскаля абс (старая версия) сумма от 1 до 5 написать сумма_пока то есть вид программы сумма_пока while по-

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
JumpyWizzard
JumpyWizzard
03.01.2022 05:51
Определите, что будет напечатано в результате работы следующей программы. var s, n: integer; begin s: = 1; for n: = 5 to 8 do s: = s * 3; write(s); end. ответ: введите...
kesha25521
kesha25521
03.01.2022 05:51
Клоун предложил каждому из публики задумать число. потом он сказал: «прибавьте к задуманному числу 5. теперь из результата вычтите 2. а теперь к результату прибавьте 7»....
пишитеответ
пишитеответ
03.04.2022 23:08
1. перевести три числа из десятичной системы счисления в двоичную. 2. перевести три числа из двоичной системы в десятичную....
dgolsky07
dgolsky07
10.07.2020 18:31
Дан набор ненулевых целых чисел; признак его завершения - число 0. вывести их среднее арифметическое. циклом с постусловием. паскаль....
Hondok13
Hondok13
23.12.2021 10:47
Почему , когда я засунула карту памяти в телефон, было всё нормально.но потом ,когда я собралась качать музыку на карту памяти , мне пишет место карты памяти,usb- накопитель,как...
katyaklimovich
katyaklimovich
17.03.2022 11:19
Причины изменения информации в процессе передачи от источника информации к пользователю...
Арайлым0906
Арайлым0906
29.11.2020 03:55
Как вычислить десятичный эквивалент? ​...
Kember
Kember
27.07.2022 19:32
Одномерный массив из 15 элементов случайным образом (отрицательные и положительные) найти произведение положительных, сумму отрицательных (в паскале)...
есенина1920
есенина1920
29.06.2020 06:54
Начиная с января на счет клиента в начале месяца переводится z руб. (заработная плата) и снимается к руб. (коммунальные услуги); в конце месяца производится начисление...
33zet33
33zet33
29.06.2020 06:54
Вкоробке лежат 7 цветных карандашей. какое количество информации содержит сообщение, что из коробки достали два карандаша?...
Ответ:
djasiclol
06.10.2020 12:32
Var S,i:integer;
Begin
S:=0;
i:=1;
While i <= 5 do
   Begin
   S:=S+i;
   i:=i+1
   End;
WriteLn('S = ',S);
End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота