Var
n:integer;
begin
writeln('Введите номер дня недели');
readln(n);
case n of
1: write('Понедельник');
2: write('Вторник');
3: write('Среда');
4: write('Четверг');
5: write('Пятница);
6: write('Суббота');
7: write('Воскресение');
else writ('Ошибка! В неделе 7 дней, а не больше!');
end;
end.
===== PascalABC.NET =====
begin
var (n, k) := ReadInteger2('Введите N и k:');
var s := 0;
n := Abs(n); // в условии не сказано, что число всегда подожительное!
while n > 0 do
begin
var d := n mod 10;
if d > k then
s += d;
n := n div 10
end;
Print(s)
end.
Есть такжен более короткое решение:
begin
var (n, k) := ReadInteger2('Введите N и k:');
var a := Abs(n).ToString.ToCharArray.Select(c -> c.ToDigit).ToArray;
a.Where(p -> p > k).Sum.Println
end.
Сканер - устройство ввода информации, остальные вывод информации <span />
Ответ:
1) 4 2) 32 3) нет
Объяснение:
1) Переведем 2048 байт в биты
размер изображения
Получаем, что на количество цветов 4 бита, что соответствует 16 цветам
2) 128*128*16= бит
Чтобы получить ответ в Кб, нужно разделить на
Получаем
3) Для 16 цветов нужно 4 бита памяти
Нам нужно памяти 512*512*4= бит
переводим в Кб, т.е. делим на и получаем = 128Кб, нам не хватит исходной видеопамяти
Тачпад встроен он удобнее но если он сломается его просто так не купишь
надо комп в ремонт нести и ждать долго плюс это дорого.
Мышка попроще но не удобна в перевозке но если она сломается то её спокойно можно купить в магазине.