М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
yaksyta
yaksyta
02.10.2021 14:32 •  Информатика

Решить (pascal),составить программу: b-7 1) вычисления значения функции вычисления значения функции y=2*10'5 cos3x-v(x+1) при любых значениях х 2). дано расстояние в сантиметрах. найти число полных метров в нем и сколько это будет в дюймах (1 дюйм=2,54 см) 3) дано трехзначное число. найти: а) число сотен в нем; б)число десятков в нем; в) число единиц в нем; в) сумму его цифр.

👇
Открыть все ответы
Ответ:
fedotovanatolij
fedotovanatolij
02.10.2021

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

Солнце было доброе и ласковое.Никита подумал,что это дедушка теперь живёт на солнце.

За огородом находился старый колодец.Никита думал,что на дне живут маленькие водяные жители,толстые,безволосые и вредные.Потом ему представилось,что там ещё и великан.

У сарая он увидел две земляные норы.Он решил,что это змеиные норы.

Никита увидел на огороде старый пень и решил,что это голова человека.Лицо у пня было сердитое.

Он смотрел на старую баню и думал.что это бабушка превратилась в избушку.

Петух представлялся ему пастухом,а цветок-маленьким ребёнком.

4,5(68 оценок)
Ответ:
King575
King575
02.10.2021
1. "Школьное" решение
// PascalABC.Net 3.0, сборка 1064
var
  i,n1,n2:integer;
  s:longint;
begin
  Write('Введите интервал для вычисления суммы: '); Read(n1,n2);
  s:=0;
  if n1 mod 2 = 0 then i:=n1 else i:=n1+1;
  while i<=n2 do begin s:=s+i; i:=i+2 end;
  Writeln('Сумма четных чисел в интервале равна ',s)
end.

Тестовое решение:
Введите интервал для вычисления суммы: 7 14
Сумма четных чисел в интервале равна 44

2. Современное решение
// PascalABC.Net 3.0, сборка 1064
var
  n1,n2:integer;
begin
  Write('Введите интервал для вычисления суммы: '); Read(n1,n2);
  if Odd(n1) then Inc(n1);
  Writeln('Сумма четных чисел в интервале равна ',Range(n1,n2,2).Sum);
end.
4,6(47 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ