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

Паскаль
Задача 1

Вывести на экран все четные числа от 1 до 20.

Задача 2.

Маше надо решить 100 примеров. Она решила, что в первый день решит - 1 пример, во второй - 2, в третий - 3 и так далее. Сколько дней Маша будет решать примеры?

👇
Ответ:
Gowaimargowa123
Gowaimargowa123
23.02.2022

Задача 1:

var

 m, n: integer;

begin

 writeln('Все четные числа: ');

 repeat

   n := 1;

   m := 20;

 until m >= n;

 while m >= n do

 begin

   if n mod 2 = 0 then write(n, ' ');

   n := n + 1;

 end;

end.

Результат:

Все четные числа:  

2 4 6 8 10 12 14 16 18 20

Задача 2:

var p, sum: integer;

Begin

sum := 0;

p:=1;

while sum<=100 do begin

 sum := sum+p;

 p := p+1;

end;  

writeln ('Все задачи Маша решит за ', p, ' дней');

end.

Результат:

Все задачи Маша решит за 15 дней

4,6(31 оценок)
Открыть все ответы
Ответ:
Черничка21
Черничка21
23.02.2022

Двійковий код - це іб кодування інформації із використанням лише 2 сигналів.

Види:

1. Беззнакові;

2. Прямі цілі знакові коди;

3. Знакові зворотні;

4. Знакові додаткові;

5. Код Грея;

6. Код Грея-Експрес;

7. Дробові коди.

Приклад двійкового кодування:

Скільки секунд буде потрібно модему, що передає повідомлення із швидкістю 28 800 біт/с для передачі 100 сторінок тексту в 30 рядків по 60 символів кожна в кодуванні ASCII.

Рішення:

У кодуванні ASCII кожен символ займає 8 біт або 1 байт.

Тоді обсяг тексту дорівнює 100 ∙ 30 ∙ 60 ∙ 8 = 1 440 000 бітів.

Для його передачі по модему знадобиться секунда.

Таблиця ASCII:


Двійкове кодування та його види за норм ответ
4,6(95 оценок)
Ответ:
mmmmmaaaaruuu69
mmmmmaaaaruuu69
23.02.2022

var

 a,c1,c2,s1,s2:integer;

begin

 readln(a);

 if a=0 then  

   begin

     writeln('Error');

     exit;

   end;

 s2:=-30000; c2:=30000;

 s1:=-30000; c1:=30000;

 repeat

   if (a>s1) or (a>s2) then

     if s1>s2 then

       s2:=a  

     else

       s1:=a;

   if (a<c1) or (a<c2) then

     if c1>c2 then

       c1:=a

     else

       c2:=a;

   readln(a);

 until a=0;

 writeln('max: ',s1+s2);

 writeln('min: ',c1+c2);

end.

Если моё решение вам, пометьте его лучшим !

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