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

Дано целое трехзначное число x. Найти число, полученное при прочтении этого числа справа налево. Полученный " перевёртыш" возвести в квадрат и вывести результат на экран. Значение х ввести с клавиатуры-9 б.​

👇
Ответ:
kolianazarenko
kolianazarenko
13.03.2023

Объяснение:

program pr1;

var x:Integer;

n:Integer;//new number

begin

write('X=');

readln(X);

if x mod 10 <> 0 then

begin

n:=(x mod 10)*100+(x mod 100 - x mod 10)*10+x div 100;

n:=n*n;//или sqr(n)

writeln(n);

end else

begin

writeln('Число не должно начинаться с 0');

end;

readln;//для консоли в Delphi

end.

4,4(15 оценок)
Открыть все ответы
Ответ:
89269705621
89269705621
13.03.2023
Профессиональный адаптер - Мультимедийная звуковая карта - многоканальная звуковая карта, предназначенная для воспроизведения и записи звука в разнородных мультимедийных системах и их приложениях (в том числе игровых, видео).
Игровая звуковая карта - предназначена, в первую очередь, для хардкорных игроков, которым требуется максимум возможностей.
Аудиофильская звуковая карта - позиционируется производителем как звуковая карта высшей категории для аудиофильского прослушивания музыки.
Профессиональная звуковая карта - эти звуковые карты используются в основном для обработки звука: вывода его на акустические системы или записи.
Формат звуковой карты - Многие звуковые карты могут выводить звук не только в стерео (2.0), но и в многоканальном режиме (5.1, 7.1). Такой режим дает возможность подключить комплект акустики с усилителем и создать объемное звуковое сопровождение компьютерной игры или фильма.
4,4(55 оценок)
Ответ:
larjon
larjon
13.03.2023
Const
  problems : array [0..9] of String = ('x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10','x1+5=10', 'x1+5=10', 'x1+5=10');
  answers : array [0..9] of String = ('-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5');
var
  countOfAnswers, counter: integer;
  userAnswer: String;
begin
  countOfAnswers := 0;
  for counter:=0 to 9 do
    begin
      write('Введите ответ уравнения ', problems[counter], ' : ');
      readln(userAnswer);
      if userAnswer = answers[counter] then Inc(countOfAnswers);
    end;
if countOfAnswers > 8 then writeln('Отлично')
    else if countOfAnswers > 5 then writeln('Хорошо')
    else writeln('Плохо');
end.
4,4(82 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ