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

Даны два действительных числа. найти сумму их модулей, разность их квадратов и произведение их кубов !

👇
Ответ:
Dilnaz10011
Dilnaz10011
17.08.2021

Program Easy;

var

   input1,input2: integer;

   

begin

 write('введите 1-е число: ');

 readln(input1);

 write('введите 2-у число: ');

 readln(input2);

 writeln('сумма модулей ', input1,' и ',input2,' = ', abs(input1) + abs(input2));

 writeln('разность квадратов ', input1,' и ',input2,' = ', sqr(input1) - sqr(input2));

 writeln('произведение кубов ', input1,' и ',input2,' = ', (input1 * input1 * input1) * (input2 * input2 * input2));

 readln;

end.


Проверял в PascalABC.NET StandardPack.

4,5(22 оценок)
Открыть все ответы
Ответ:
3Belchonok3
3Belchonok3
17.08.2021
Программа Вот:
Program z1;Var a,b,c,d,k:integer;BeginWriteln('Введите трехзначное число');REadln(a);While a<>0 do beginWriteln('Введите трехзначное число');REadln(a);b:=a div 100 mod 10;c:=a div 10 mod 10;d:=a mod 10;if b+c+d div 10 >0 then writeln('Сумма цифр- двузначное число') else writeln ('Нет, сумма цифр не двузначное число');if b*C*D div 100 >0 then writeln('Произведение цифр- терхзначное число') else writeln ('Нет, произведение цифр не трехзначное число число');Writeln ('Введите любое число');Readln (k);If b*c*d>k then writeln('Произведение цифр больше числа') else writeln('Произведение меньше числа');if B+c+d div 5 =0 then writeln('Сумма цифр числа кратна 5') else writeln ('Сумма цифр не кратна 5');if B+c+d div k =0 then writeln('Сумма цифр числа кратна числу, введенному с клавиатуры') else writeln ('Сумма цифр не кратна числу, введенному с клавиатуры');End;End. 
Есть маленькая проблема в начале, не помню как прописывать, поэтому число первый раз нужно вводить 2 раза, если не устраевает, можете воспользоваться другими ресурсами  
4,5(24 оценок)
Ответ:
adamadam
adamadam
17.08.2021

1) Pygame - Библиотека Python, предназначенная для создания игр и мультимедийных приложений. Базируется на библиотеке для мультимедийных приложений SDL. Написана на языке С

2) Для использования библиотеки PyGame нужно установить её с менеджера пакетов Python и импортировать в свой проект

cmd: pip install pygame

project.py: import pygame ИЛИ from pygame import *

4) Библиотека PyGame содержит класс pygame.Color, отвечающий за работу с цветами

Так же класс pygame.Surface имеет некоторые методы, позволяющие изменять его цвет.

Объяснение:

4,4(55 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ