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

СОЗДАТЬ БЛОК СХЕМУ И ПРОГРАММУ КОТОРАЯ ВЫПОЛНИТ ПРОИЗВЕДЕНИЕ РАЗНОСТЬ СУММУ И ВЫЧИТАНИЕ ДВУХ ЧИСЕЛ. И ВЫВЕДЕТ РЕЗУЛЬТАТ НА ЭКРАН С ПОДСКАЗКАМИ
(в программе пайтон)​

👇
Ответ:
дима2852
дима2852
15.12.2020

Объяснение:

вот так?Я просто не понял что спрашивают,но надеюсь что .


СОЗДАТЬ БЛОК СХЕМУ И ПРОГРАММУ КОТОРАЯ ВЫПОЛНИТ ПРОИЗВЕДЕНИЕ РАЗНОСТЬ СУММУ И ВЫЧИТАНИЕ ДВУХ ЧИСЕЛ.
4,4(80 оценок)
Открыть все ответы
Ответ:
LEHA6712
LEHA6712
15.12.2020
Var InFile, OutFile: text; // Вводной и выводной файлы
Var a,b,c, D, Result : Integer;
Assign(InFile, "C:\kvur.txt");
Assign(OutFile, "C:\korni.txt")
Reset(InFile)
Read(InFile,a)
Read(InFile,b)
Read(InFile, c)
D = sqr(b) + 4*a*c
if D = 0 then
Write("Уравнение не имеет корней")
Else
  Append(OutFile)
  Result:=(-b + sqrt(D)) / 2 * a
  Write(OutFile,Result)
  Write("Корень уравнения")
  WriteLn(Result)
  if (D>0) then
    Result:=(-b - sqrt(D)) / 2 * a
    Write(OutFile, Result)
    Write("Второй корень уравнения")
    Write(Result)
  End;
End.
4,4(98 оценок)
Ответ:
tasinas
tasinas
15.12.2020
Здесь нужно проанализировать, какое слово следует написать в зависимости от введенного числа.
Если число оканчивается на 0, 5, 6, 7, 8, 9, то нужно написать "лет".
Если число оканчивается на 1, то нужно написать "год".
Если число оканчивается на 2, 3, 4, то нужно написать "года".
НО! Исключение составляют числа от 11, до 19, здесь всегда нужно писать "лет". Поэтому в программе проверяются и само число n и последний разряд этого числа x.

Программа:

program z;
var n,x:integer;
begin
readln(n);    {вводим число}
x:=n mod 10;    {вычислим последний разряд числа}
if (x=0) or ((n>10) and (n<=19)) or (x>=5) then writeln(n,' лет')
else
if x=1 then writeln(n,' год')
else
if (x>1)and(x<5) then writeln(n,' года');
end.
4,4(61 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ