Переведите числа 49,6875

Помогите с задачей на pascal abc - на теме отсутвовал...Задача:НА ЗАДАЧУ ДАНО ТРЕХЗНАЧНОЕ ЧИСЛО, РАВЕН ЛИ КВАДРАТ ЭТОГО ЧИСЛА СУ

Alisa13s [38]

uses crt;
var a,s:integer;
begin
clrscr;
repeat
write('Введите трехзначное число a=');
readln(a);
until(a>=100)and(a<=999);
s:=0;
while a>0do
begin
s:=s+sqr(a mod10)*(a mod10);
a:=a div10;
end;
if a*a=s*s*s thenwrite('Квадрат числа=сумме кубов его цифр')
elsewrite('Квадрат числа<>сумме кубов его цифр');
readln
end.

0 0

4 года назад

Решите задачи: 1. Для хранения растрового изображения размером 64 на 64 пикселей отвели 2048 байт памяти. Каково максимально воз

Mari666 [5]

Ответ:

1) 4 2) 32 3) нет

Объяснение:

1) Переведем 2048 байт в биты

$2048 -> 2^{11} * 2^{3} \\$

размер изображения $64*64 -> 2^{6} * 2^{6} \\$

$\frac{2^{14} }{2^{12} } =2^{2} =4$

Получаем, что на количество цветов 4 бита, что соответствует 16 цветам

2) 128*128*16= $2^{7} *2^{7} *2^{4} =2^{18}$ бит

Чтобы получить ответ в Кб, нужно разделить на $2^{13}$

Получаем $2^{5} = 32$

3) Для 16 цветов нужно 4 бита памяти

Нам нужно памяти 512*512*4= $2^{9} *2^{9} *2^{2} =2^{20}$ бит

переводим в Кб, т.е. делим на $2^{13}$ и получаем $2^{7}$ = 128Кб, нам не хватит исходной видеопамяти

0 0

3 года назад

Нужно решить задачу в Паскале, условие таково:"Найти наименьшее кратное двух чисел a и b"Насколько я помню в этой задаче можно и

Наталья Приходько [162]

Готово...........................

0 0

3 года назад

Приведите все алгоритмы из трёх команд, которые переместят Робота из исходного положения в клетку Б.Существует ли для этой задач

szhuretskaya

1. Вправо, вниз, вниз. Вниз, вниз, вправо. Вниз, вправо, вниз. 2. А. Нет Б. Нет В. Да Г. Да Д. Да Е. Нет

0 0

4 года назад

Прочитать ещё 2 ответа

Напишите пожайлусто пример примеры алгоритма

ОксанаЩ [14]

Складемо алгоритм переходу вулиці.
Алгоритм Перехід
1.Подивитися ліваоруч.
2.Якщо немає перешкоди,то йти до середини вулиці,інакше пропустити машини,йти до середини вулиці.
3.Подивитися праворуч.
4.Якщо немає перешкоди,то завершити перехід,інакше пропустити машини,завершити перехід.

0 0

2 года назад