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

Напишите программу вычисления идеального веса человека по формуле: идеальный вес = рост в см - 100. значение роста вводится с клавиатуры. результат вывести в следующем виде: .

👇
Ответ:
NikolayTop
NikolayTop
18.05.2021
Var r,ves:integer;
begin
read(r);
ves:=r-100;
writeln('Для человека ростом ',r,'см идеальный вес равен ',ves,' кг');
end.
4,6(87 оценок)
Открыть все ответы
Ответ:
Emmaskr
Emmaskr
18.05.2021

Объяснение:

#include <iostream>

using namespace std;

Int main()

{

Setlocale(LC_ALL , "rus");

double x, y;

cout<< "Введите значение x , y " <<endl;

cin>>x>>y;

If ((sqrt(pow(x) + pow(y) <1) && (x>0)&&(y>0))

cout<<"точка принадлежит заштрихованной области" <<endl;

If ((sqrt(pow(x) + pow(y) < 1)&& (x<0)&&(y<0))

cout<<"точка принадлежит заштрихованной области" <<endl;

else

cout<<"точка не принадлежит заштрихованной области" <<endl;

return 0;

}

4,8(73 оценок)
Ответ:
Kinder281
Kinder281
18.05.2021
То, что написал Alex - это не функция проверки признака делимости,
а стандартная функция остатка от деления, которая тебе не подходит.
Признак делимости на 11 такой. Нужно отдельно сложить цифры, стоящие на нечетных местах - 1, 3, 5, ..., до конца, и отдельно цифры, стоящие на четных местах - 2, 4, 6, ..., тоже до конца.
Потом вычитаешь из большего числа меньшее. Если разность = 0 или делится на 11, то и все число делится на 11.
Я паскаль плохо знаю, поэтому опишу только алгоритм.
1) Вводим начальное число N.
2) Объявляем массив M[length(N)] длиной, равной количеству цифр числа.
3) Делаем в цикле a := N mod 10; M[i] := a; N := int(N / 10); i := i+1;
Продолжаем цикл до тех пор, пока N > 0.
4) S1 := 0; Цикл от 1 до length(N) с шагом 2: S1 := S1 + A[i];
5) S2 := 0; Цикл от 2 до length(N) с шагом 2: S2 := S2 + A[i];
6) Raznost := abs(S1 - S2); 
7) Если Raznost mod 11 = 0 тогда ответ ДА, иначе ответ НЕТ.
8) Конец
4,5(88 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ