В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
lubovsher1
lubovsher1
17.03.2021 13:49 •  Информатика

Контрольная работа №3. «Начала программирования»

Вариант 1.

1. Какой оператор используется для ввода данных в языке программирования Pascal?

2. В языке программирования Pascal для организации цикла используются операторы for, while и repeat. При применении которого (или которых) из них заранее точно известно число повторений цикла?

3. Определите значение переменных а и b после выполнения фрагмента программы:

а := 10

b := 110

b := 110 + b/a

a := b/11*a

b := a mod 100

4. Было произведено девять запусков программы:

var s, t: integer;

begin

readln(s);

readln(t);

if (s < 4) or (t < 4)

then writeln('YES')

else writeln('NO')

end.

при которых в качестве значений переменных s и t вводились следующие пары чисел:

(5, 4); (5, 6); (–2, 1); (5, 8); (7, 8); (–5, 5); (–2, 2); (4, 3); (3, –8).

Выпишите пары чисел, при которых программа напечатала «NO»?

5. Запишите число, которое будет напечатано в результате выполнения программы.

var s, n: integer;

begin

s := 78;

n := 0;

while n < 12 do

begin

s := s – 8;

n := n + 2

end;

writeln(s)

end.

Показать ответ
Ответ:
pogosanitka2345
pogosanitka2345
21.06.2022 09:50
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (sn,pp,kp):=(0,1,0);
  var n:integer;
  repeat
    Read(n);
    if (n<0) and n.IsOdd then sn+=n
    else
      if (n>0) and (n mod 3=0) then begin pp*=n; kp+=1 end
  until n=0;
  if sn=0 then begin
    Writeln('Нет отрицательных нечетных чисел');
    if kp=0 then Writeln('Нет положительных чисел, кратных 3')
    else Writeln('Произведение положительных чисел, кратных 3: ',pp)
    end
  else begin
    Writeln('Сумма отрицательных нечетных чисел: ',sn);
    if kp=0 then Writeln('Нет положительных чисел, кратных 3')
    else Writeln('Произведение положительных чисел, кратных 3: ',pp)
    end
end.

Пример
-367 23 62 7 12 -24 90 152 -63 0
Сумма отрицательных нечетных чисел: -430
Произведение положительных чисел, кратных 3: 1080
0,0(0 оценок)
Ответ:
blablabla43
blablabla43
05.08.2022 11:10
Объем изображения  I=k*i*n , где k- количество точек, i- глубина цвета, n - количество слайдов
Глубина цвета i=㏒₂N, где N-количество цветов палитры
i=㏒₂256=8

I=1024*512*8*10/(8*1024*1024)= 5 Мбайт

Объем звука:

I= i*n*t, где i-глубина кодирования звука, n- частота дискретизации, t- время звучания. 

I= 16*32000*40/(8*1024*1024)= 2,44 Мбайт

Общий объем презентации: 5 Мбайт+2,44 Мбайт= 7,44 Мбайт
Еще добавляем 10 Кбайт служебной информации.

А объем флешки:  3 Гбайт= 3072 Мбайт
Свободное место 10%= 307,2 Мбайт

Поэтому презентация уместится.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота