Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
alextv76
26.05.2021 18:35 •
Информатика
Не себепті мазмұн қою қажет?
👇
Увидеть ответ
Открыть все ответы
Ответ:
AyHaN123
26.05.2021
Uses crt;
var input, betw:integer;
begin
readln(input);
betw := input;
betw := betw div 10;
betw := betw div 10;
betw := betw div 10;
writeln('Тысяч = ', betw);
betw := input;
betw := betw div 10;
betw := betw div 10;
betw := betw mod 10;
writeln('Сотен = ', betw);
betw := input;
betw := betw div 10;
betw := betw mod 10;
writeln('Десятков = ', betw);
betw := input;
betw := betw mod 10;
writeln('Единиц = ', betw); end.
4,6
(53 оценок)
Ответ:
Savi123
26.05.2021
#include "stdafx.h"
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "rus");
float a, b, c, x1, x2;
cout << "Введите основную сторону: \n";
cin >> a;
cout << "Введите две других: \n";
cin >> b;cin >> c;
cout << "Введите углы: \n";
cin >> x1; cin >> x2;
if (a*a == b*b + c*c) cout << "Прямоугольный\n";
if (a*a < b*b + c*c) cout << "Остроугольный\n";
if (a*a > b*b + c*c) cout << "Тупоугольный\n";
if (x1 == x2) cout << "Равнобедренный\n";
if (a == b && b == c) cout << "Равносторонний \n";
system("pause");
return 0;
}
4,4
(76 оценок)
Это интересно:
О
Образование
06.01.2021
Клюква стоит 250 рублей за кг, а малина 200....
О
Образование
16.03.2023
Решить систему уравнений x2 + y2 + xy = 3...
О
Образование
05.08.2020
Решить систему уравнений x2 + xy +y2 = 13...
О
Образование
06.04.2022
В треугольнике АВС проведена биссектриса АК...
О
Образование
11.03.2020
Водитель ехал с постоянной скоростью из города А в город Б...
О
Образование
27.04.2022
Первые 300 км автомобиль ехал со скоростью 60 км/час...
О
Образование
02.06.2023
В треугольнике АВС точка D на стороне АВ...
О
Образование
21.07.2020
Из разных городов, расстояние между которыми 600 км...
О
Образование
29.01.2020
Из пункта А в пункт B, расстояние между которыми 84 км...
Х
Хобби-и-рукоделие
21.02.2021
Правила и техника игры в карточную игру Скорость...
Новые ответы от MOGZ: Информатика
ushhahas02828
02.12.2020
Что может означать запись : 18-15 с точки зрения: продавца, машиниста электропоезда?...
MoDnIk237
20.02.2021
1. К какому типу сети оператора связи обычно подключаются центры данных? а) к сети доступа; б) к сети агрегирования трафика; в) к магистральной сети. 2. Какие из перечисленных...
креореглеонл
01.11.2022
У исполнителя Калькулятор 2 команды, которыми присвоены номера: 1. умножь на 5 2.вычти 7 Выполняя первую из них, Калькулятор увеличивает число на экране в 5 раз, вторая-уменьшает...
rekardo
06.02.2023
Решить в Паскаль ввести с клавиатуры 5 чисел и найти их сумму при цикла for....
nastiakosovic
25.08.2020
План по информатике про лампа накаливания 5класс...
dangah31
08.01.2022
Определите значение переменной c после выполнения фрагмента алгоритма, записанного в виде блок-схемы Примечание:знаком:=обозначена операция присваивания. в ответе укажите одно...
Esken213141
17.12.2020
Из непрозрачного мешочка вынимают шарики с номерами и известно, что информационное сообщение о номере шарика несёт 9 битов информации. Определите количество шариков в мешочке....
isokova01
13.02.2022
Какой информационный объём сообщения состоящего из 64 символьного, 8символьного алфавита...
llerochka1
14.03.2021
Из непрозрачного мешочка вынимают шарики с номерами и известно, что информационное сообщение о номере шарика несёт 9 битов информации. Определите количество шариков в мешочке....
kseniawkk
05.04.2021
В электронной таблице ввести данные приведённому ниже образцу...
MOGZ ответил
Среди приведённых ниже трёх чисел, записанных в различных системах счисления,...
Үшбұрыштың бұрыштары шамаларының қатынасы 5:7, ал үшінші бұрышы қалған екі...
Рассчитайте давление в шахте на глубине 500 м если на поверхности земли...
Ребят объясните тупому человеку Как делить на числа оканчивающеми нулями...
Скласти план до роздилу 6 у казци Таэмниця козацькои шабли...
Напишите что Сережа действительно мог утонуть (1)Это она правильно сделала,...
В школьной библиотеке 1800 книга из них 28%-справочная литература, я 43%-художественная...
Завтра нужно сдавать таблицу, времени делать её нету. Кому не сложно, сделайте...
Write affirmative and negative sentences using the correct form of be going...
Реши уравнение купрумО плюс Аш2ЭсО4...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
var input, betw:integer;
begin
readln(input);
betw := input;
betw := betw div 10;
betw := betw div 10;
betw := betw div 10;
writeln('Тысяч = ', betw);
betw := input;
betw := betw div 10;
betw := betw div 10;
betw := betw mod 10;
writeln('Сотен = ', betw);
betw := input;
betw := betw div 10;
betw := betw mod 10;
writeln('Десятков = ', betw);
betw := input;
betw := betw mod 10;
writeln('Единиц = ', betw); end.