Pavel_Olegovna1601
?>

Паскаль1.Найти наименьшее и наибольшее число из 20 случаных чисел2.Найти количество не парных чисел из случайно введенных3.Напечатать все двузначные числа, которые делятся на 34.Напечатать 10 случайных чисел5.Найти произведение чисел из заданного промежутка6.Дано целое положительное число. Напечатать количество и сумму его цифр7.Дано целое положительное число. Узнать есть ли в числе не парные цифры. Если есть , то напечатать True, если нет, то напечатать False8.Напечатать фразу "Я учусь программировать" указанному количество раз. ​

Информатика

Ответы

ПаничерскийЕлена

//Задача 1

begin

 var a := ArrRandom(20, -20, 20).Println;

 Println(a.Min, ' ', a.Max);

end.

//Задача 2

begin

 var a := ReadArrInteger(10);

 a.Where(p -> p.IsOdd).Count.Println;

end.

//Задача 3

begin

 SeqGen(90, 10, x -> x + 1).Where(x -> x mod 3 = 0).Println;

end.

//Задача 4

begin

 ArrRandom(10,-20,20).Println;

end.

//Задача 5

begin

 var (a, b) := ReadInteger2;

 Range(a, b).Product.Println

end.

//Задача 4

var

 n, i, sum, count: integer;

begin

 Writeln('Введите число: ');

 Readln(n);

 count := 0;

 while n <> 0 do

 begin

   i := n mod 10;

   sum += i;

   count += 1;

   n := n div 10;

 end;

 Writeln('Сумма цифр: ', sum);

 Writeln('Количество: ', count);

end.

//Задача 7

var

 n, i, sum, count: integer;

begin

 Writeln('Введите число: ');

 Readln(n);

 count := 0;

 while n <> 0 do

 begin

   i := n mod 10;

   if not Odd(i) then count += 1;

   n := n div 10;

 end;

 if count <> 0 then Writeln('True')

 else Writeln('False');

end.

Задача 8

begin

 var n := ReadInteger;

 for var i := 1 to n do

 begin

   Println('Я НЕ учусь программировать');

 end;

end.

jamaltreid

Объяснение:

Рассмотрим обычное десятичное число, например, число 5623. Интуитивно понятно, что означают все эти цифры: (5 * 1000) + (6 * 100) + (2 * 10) + (3 * 1). Так как в десятичной системе счисления всего 10 цифр, то каждое значение умножается на множитель 10 в степени n. Выражение, приведенное выше, можно записать следующим образом: (5 * 103) + (6 * 102) + (2 * 101) + (3 * 1).

Двоичные числа работают по аналогичной схеме, за исключением того, что в системе всего 2 числа (0 и 1) и множитель не 10, а 2. Так же как запятые (или пробелы) используются для улучшения читабельности больших десятичных чисел (например, 1, 427, 435), двоичные числа пишутся группами — в каждой по 4 цифры (например, 1101 0101).

Plamia7917

ответ: как я понял, 1 тб на Fat 32 не поддерживается на всех операционках (кроме Windows NT 3.51, там кластер состовляет 32 гига)

Объяснение:

вот сайт от куда я смотрел инфу: https://support.microsoft.com/ru-ru/topic/%D1%80%D0%B0%D0%B7%D0%BC%D0%B5%D1%80-%D0%BA%D0%BB%D0%B0%D1%81%D1%82%D0%B5%D1%80%D0%B0-%D0%BF%D0%BE-%D1%83%D0%BC%D0%BE%D0%BB%D1%87%D0%B0%D0%BD%D0%B8%D1%8E-%D0%B4%D0%BB%D1%8F-%D1%84%D0%B0%D0%B9%D0%BB%D0%BE%D0%B2%D1%8B%D1%85-%D1%81%D0%B8%D1%81%D1%82%D0%B5%D0%BC-fat-ntfs-%D0%B8-exfat-9772e6f1-e31a-00d7-e18f-73169155af95

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Паскаль1.Найти наименьшее и наибольшее число из 20 случаных чисел2.Найти количество не парных чисел из случайно введенных3.Напечатать все двузначные числа, которые делятся на 34.Напечатать 10 случайных чисел5.Найти произведение чисел из заданного промежутка6.Дано целое положительное число. Напечатать количество и сумму его цифр7.Дано целое положительное число. Узнать есть ли в числе не парные цифры. Если есть , то напечатать True, если нет, то напечатать False8.Напечатать фразу "Я учусь программировать" указанному количество раз. ​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

vak1984
eurostom
Svetlana ALLA
Динков
hachatryanlilit1983
Petrovich
ЕленаАнастасия315
kolgatin69
Kharkina1328
Evelina Mariya
tcmir
Serafim
tabacoffee
kononova_Pavel689
zuzman601