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

Дано трехзначное число. найдите произведение его цифр. использовать оператор условия или цикла запрещено

👇
Ответ:
vavilovaev86
vavilovaev86
18.02.2023
Var a,a1,a2,a3:integer;
begin
read(a);
a1:=a div 100;
a2:=(a div 10) mod 10;
a3:=a mod 10;
writeln(a1*a2*a3);
end.
4,4(26 оценок)
Ответ:
sergazinaaidana
sergazinaaidana
18.02.2023
Не знаю, может так:
ввод х
S=х mod 10
х= х div 10
S=S* x mod 10
x = x div 10
S=S*x

или вот так скорее, вернее короче:
ввод x
S=x mod 10 * (x div 10) mod 10 * ((x div10) div10) mod 10

вывод S

div 10 - делим число на 10 и берем целую часть (то что перед запятой, например 25/10=2,5, ответ 2)
mod 10 - делим число на 10 и берем остаток (то что после запятой, например 23/10=2,3, ответ 3)
4,6(40 оценок)
Открыть все ответы
Ответ:
leraleralera13
leraleralera13
18.02.2023
// Известно, что Х кг шоколадных конфет стоит А рублей,
// а Y кг ирисок стоит В рублей. Определить, сколько стоит 1 кг
// шоколадных конфет, 1 кг ирисок, а также во сколько раз шоколадные конфеты дороже ирисок.

var x,y,a,b: real;
begin
  writeln('Введите массу шоколадных конфет');
  readln (x);
  writeln('Введите сумму потраченную на покупку шоколадных конфет');
  readln (a);
  writeln('Введите массу ирисок');
  readln (y);
  writeln('Введите сумму потраченную на покупку ирисок');
  readln (b);
  writeln ('килограмм шоколадных конфет стоит ',(a/x):0:2,' рублей');//(a/x):0:2 - округряем до сотых)
  writeln ('килограмм ирисок стоит ',(b/y):0:2,' рублей');
  Writeln ('Шоколадные конфеты дороже ирисок в ',(a/x)/(b/y):0:1,' раз');// - округляем результат до десятых
 end.

//Дана длина ребра куба а. Найти его объем и площадь поверхности

Var a: real;
begin
  writeln ('введите длину ребра куба');
  readln (a);
  while a<0 do
    begin
      writeln ('вы ввели не допустимое значение попробуйте еще раз');
      writeln ('введите длину ребра куба');
      readln (a);
    end;
  writeln ('площадь куба равна ',a*a*6);
  writeln ('объем куба равен ',a*a*a);
end.
4,8(17 оценок)
Ответ:
пупсик145
пупсик145
18.02.2023

Достоинства:

- Проста в использовании
-Легкая деформация
-При создании изображения, в общем виде оно выглядит достаточно реалистично.

Недостатки:

-Плохая трансформация 
-Нельзя рассмотреть детали изображения(так как оно состоит из точек(пикселы) то при увилечении изображения, все точки , также увеличиваются)
-При создании подобного изображения нужно сразу вводить его данные(размер, глубина света и т.д) и, например, если надо передать фотографию на печать, и уменьшить ее размер и глубину цвета, изображение искажается.

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