Архивы Разное - Page 18 of 426 - Простое Решение

Линолеум пошел волнами как исправить после укладки — Сайт, где вы сможете решить свои вопросы

26.05.2023

Разное

Линолеум является популярным покрытием, которое часто применяется для отделки пола в самых разных помещениях. Часто хозяева домов и квартир укладывают этот материал самостоятельно. Допустив некоторые ошибки, можно наблюдать, как на поверхности линолеума появляются некрасивые волны. Эту проблему решают разными способами. Как убрать волны на линолеуме, будет подробно рассмотрено далее. Подробнее ...

Царапина на искусственном камне как исправить — Сайт, где вы сможете решить свои вопросы

26.05.2023

Разное

Как просто и быстро удалить царапины со столешницы из искусственного камня: рабочий способ

Неприятно наутро видеть последствия веселого компанейского ужина, когда кто-то из гостей постеснялся попросить разделочную доску, и на столешнице из искусственного камня отчетливо видны множественные царапины от ножа. А можно ли вернуть поверхности первоначальный вид? Подробнее ...

Как найти ссылку www — Сайт, где вы сможете решить свои вопросы

26.05.2023

Разное

Загрузить PDF

Из этой статьи вы узнаете, как найти адрес (URL-адрес) сайта. Он отображается в адресной строке веб-браузера. Чтобы найти адрес сайта через ссылку, которая ведет на него, нужно щелкнуть по ссылке правой кнопкой мыши и скопировать адрес. Подробнее ...

Как найти элементы массива которые меньше 8 — Сайт, где вы сможете решить свои вопросы

26.05.2023

Разное

0 / 0 / 0

Регистрация: 11.10.2012

Сообщений: 31

1

11.10.2012, 12:36. Показов 1453. Ответов 2

1.Найдите сумму положительных элементов массива,значения которых меньше 8

0

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

11.10.2012, 12:36

Ответы с готовыми решениями:

Найти сумму положительных элементов массива, значения которых меньше 10
Напишите пожалуйста код программы:
Дан одномерный массив C целых чисел, состоящий из 10 элементов,…

Найти сумму положительных элементов массива, значения которых меньше 10
Дан массив целых чисел из n элементов, заполненный случайным образом числами из указанного…

Найти сумму элементов массива, стоящих на четных местах. Подсчитать количество элементов, значения которых меньше 1
помогите пожалуйста решить задачку на паскале:
Дан одномерный массив ci , где i=1…n. Найти сумму…

Найти сумму положительных элементов массива, значения которых четные
Помогите написать программу, которая будет выполнять ряд условий:
1. Создать одномерный массив с…

2

Valery__

233 / 223 / 146

Регистрация: 19.03.2012

Сообщений: 369

11.10.2012, 13:56

2

Сообщение было отмечено Памирыч как решение

Решение

Pascal

Program sum_arry
Const n=5
Type mas = array[1..] of real
Var a:mas
    i:integer
    sum:real
BEGIN
  Writeln ('Vvedite masiv chisel ')
  sum:=0
  for i:=1 to n do begin
    write ('a[',i,']')
    Readln (a[i])
    if (a[i]>0) AND (a[i]<8) then sum:= sum + a[i]
 end
 Write ('Summa = ',sum)
END.

1

0 / 0 / 0

Регистрация: 11.10.2012

Сообщений: 31

11.10.2012, 14:31

[ТС]

3

Спасибо!

0

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

11.10.2012, 14:31

3

Источник

Главная
Готовые программы Turbo Pascal
Найти сумму положительных элементов массива, значения которых меньше 8

Формулировка задачи:

1.Найдите сумму положительных элементов массива,значения которых меньше 8

Код к задаче: «Найти сумму положительных элементов массива, значения которых меньше 8»

textual

Program sum_arry; Const n=5; Type mas = array[1..n] of real; Var a:mas; i:integer; sum:real; BEGIN Writeln ('Vvedite masiv chisel '); sum:=0; for i:=1 to n do begin write ('a[',i,']'); Readln (a[i]); if (a[i]>0) AND (a[i]<8) then sum:= sum + a[i]; end; Write ('Summa = ',sum); END. Подробнее ...

Как найти жиры в пище — Сайт, где вы сможете решить свои вопросы

26.05.2023

Разное

Многие рецепты для похудения сводятся к тому, чтобы в еде было меньше масла и жирных продуктов. При таком подходе желаемого снижения веса не происходит. Ведь жиры участвуют в обмене веществ наравне с белками и углеводами. Важно только тщательно выбирать источники полезных жиров и контролировать их количество. Правильные жиры — это источник энергии для организма, они стимулируют мозговую деятельность, помогают укреплять иммунитет. Подробнее ...

Bootmgr is missing как исправить при установке windows — Сайт, где вы сможете решить свои вопросы

26.05.2023

Разное

Это сообщение об ошибке указывает на то, что загрузочный сектор поврежден или отсутствует.

Решение

Воспользуйтесь приведенными ниже способами, чтобы устранить ошибки запуска Windows. Подробнее ...

Как найти адрес по ip адресу онлайн — Сайт, где вы сможете решить свои вопросы

26.05.2023

Разное

Другие наши сервисы и полезные инструменты

Часто задаваемые вопросы

Что такое Geo IP?

IP-адрес (Internet Protocol Address) — уникальный адрес в сети, который идентифицирует устройство: ваш компьютер, смартфон или планшет. Он нужен для того, чтобы устройства пользователей могли находить друг друга и обмениваться данными в Сети. Подробнее ...

Как исправить резиновое мясо свинины — Сайт, где вы сможете решить свои вопросы

26.05.2023

Разное

Почему свинина получилась резиновая?

Куски свинины будут жесткими, если мышечные волокна останутся длинными и неповрежденными. До того, как приправлять и начать готовить, попробуйте разбить мышечные волокна, используя колотушку для мяса (которую иногда называют “размягчителем мяса”). Подробнее ...

Как найти первую цифру числа паскаль — Сайт, где вы сможете решить свои вопросы

26.05.2023

Разное

0 / 0 / 0

Регистрация: 19.11.2015

Сообщений: 20

1

Найти первую цифру числа

12.04.2017, 06:02. Показов 46971. Ответов 8

Дано натуральное число n. Найти первую цифру

0

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

12.04.2017, 06:02

8

VladimirD

80 / 80 / 78

Регистрация: 30.12.2015

Сообщений: 256

12.04.2017, 06:19

2

Pascal

program Project1
Var
 i,n:integer
begin
readln(n)
repeat
 i:=n mod 10
 n:=n div 10
until n=0
writeln('первая цифра =',i)
end.

1

0 / 0 / 0

Регистрация: 19.11.2015

Сообщений: 20

12.04.2017, 06:21

[ТС]

3

Спасибо

0

Puporev

Почетный модератор

64287 / 47586 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

12.04.2017, 09:07

4

Правильно так. Число может быть<=0.

Pascal

var n:integer
begin
readln(n)
n:=abs(n)
if n>9 then
repeat
 n:=n div 10
until n<10
writeln('Первая цифра=',n)
end.

0

80 / 80 / 78

Регистрация: 30.12.2015

Сообщений: 256

12.04.2017, 09:16

5

По условию задачи

Сообщение от EvGENJho

Дано натуральное число

0

Puporev

Почетный модератор

64287 / 47586 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

12.04.2017, 09:19

6

Ну тогда только убрать

Pascal

n:=abs(n)

Просто у Вас лишняя переменная i, и лишние телодвижения с mod.

0

white0prof-

1 / 1 / 1

Регистрация: 25.06.2019

Сообщений: 17

27.06.2019, 09:06

7

Pascal

var x: integer begin write('Введите число: ') read(x) while(x >= 10) do x := x div 10 write('Первая цифра числа: ', x) end Подробнее ...

Как найти массовую долю жира молока — Сайт, где вы сможете решить свои вопросы

26.05.2023

Разное

Содержание жира – один из основных показателей качества молока и молочных продуктов. Необходимо проводить анализ данного параметра, чтобы определить пищевую ценность продукта и исключить фальсификацию. Для контроля жира в молоке и молочных продуктах используют следующие методы: кислотный, оптический, гравиметрический, экспресс-метод ультразвукового анализа, экспресс-метод ИК-спектроскопии. Подробнее ...