Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
San4ic
22.12.2021 05:50 •
Информатика
На паскале 1.найти сумму первых 10 натуральных нечетных чисел. 2.найти произведение натуральных чисел прекратить подсчет при вводе 1.
Показать ответ
Ответ:
elinashovhalova
01.10.2020 22:16
Var
a,b,c,d:integer;
begin
c:=1;
b:=0;
while a<>1 do begin
readln(a);
if a mod 2 <> 0 then begin
b:=b+1;
if b<=10 then c:=c+a;
end;
c:=c*a;
end;
writeln(b,' ',c);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Ildessova
27.07.2020 19:39
Программа паскаль. дано трехзначное число. определите, является ли его десятичная запись симметричной. если число симметричное, то выведите 1, иначе выведите 0...
whcxjsg
15.04.2021 01:41
Через три года файлина будет втрое старше своей сестры,которой исполнится год.сколько лет файлине сейчас?...
Янрей
03.05.2020 09:11
Решить на паскале я совсем не разбираюсь в ! 1)дана таблица со значениями среднемесячных температур в течение года. составить программу на паскале, в которой вычисляются четыре величины:...
maxim210204
22.04.2021 15:02
Чему будет равно значение переменной «a» после выполнения этого цикла? i: =3; a: =12; while i 3 do begin a: =a+i; i: =i+1; end;...
Анёк11
26.02.2023 03:54
Что означает для вас красота природы?...
марго170
26.02.2023 03:54
Определите амплитуду и период колебательного движения, изображенного на рисунке...
1048298
02.08.2021 17:46
В качестве субстратов в реакциях нуклеофильного замещения обычно используют:-: галогенпроизводные -: алкены -: простые эфиры -: эпоксиды...
dk050805
22.03.2023 14:31
Механизм ионизационного замещения обозначается как: -: SN1 -: SN2 -: E 1 -: E 2 -: Ad N...
нася12342
28.01.2020 11:00
спишите словосочетания вставляя пропущенные буквы ё о :Заросло камыш..м,ч..рные проталины,ш..пот в алле..,ж..лтые тычинки, выращивать птенц..в, прилетают с добыч..й, громко щ..лкать,жир...
Ирина7679
09.05.2021 07:06
3. Өлеңге сүйеніп, оның мазмұнын өз сөзіңмен әңгімеле. Жұмыстанкейінгі күйіЖұмысқа дейінгі Баланың жұмысбаланың іс-әрекетікезіндегі күйіСөзі ...Киімі ...Киімі ...Ici...Апасының сөзі...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a,b,c,d:integer;
begin
c:=1;
b:=0;
while a<>1 do begin
readln(a);
if a mod 2 <> 0 then begin
b:=b+1;
if b<=10 then c:=c+a;
end;
c:=c*a;
end;
writeln(b,' ',c);
end.