4*1254 - 254 + 9 = 4771
4771 <span>в системе счисления с основанием 5 = 123041
следовательно 1
</span>
1. Мультимедия - это интерактивные системы, обеспечивающие одновременную работу со звуком, компьютерной графикой, видеокадрами, статистическими изображениями и текстами.
2. Мультимедийная обучающая программа - это обучающая программа,применение получила в образовании для нормального восприятия учебного материала.
1) Повышает степень усвоения материала ;
2) Содержид в себе разные иллюстрации,анимации,видео,аудио ;
3)Одновременное использование всех функций на одном объекте.
Учебный видеофильм:
1) Эффект его воздействия ;
2) Звук,динамичная картина,результат психологического и эмоционального вовлечения ;
3) Методика учебного фильма - давать учиться.
3. Большая наглядность,возможность отображения динамических процессов,интерактивность...
ВСЕ!!!Прости,но доклад писать я уже не в состоянии...
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := Arr(3.5, 4.2, 5.7, 6.3, 4.5, 7.1, 3.3);
Writeln('a) ', a.Sum);
Writeln('б) ', a.Where(t -> t > 5).Sum);
Writeln('в) ', a.Max);
Writeln('г) ', a.Where(t -> t < 5).Count);
Writeln('д) ', a.IndexMin + 1)
end.
<h3>a) 34.6</h3><h3>б) 19.1</h3><h3>в) 7.1</h3><h3>г) 4</h3><h3>д) 7</h3>
Чтобы узнать о недоработках и ошибках.
Пользователи служат в роли тестировщиков программы
Uses Crt;
Var
A,B:integer;
P:real;
C:boolean;
Begin
ClrScr;
Write('Введите натуральное число: ');ReadLn(B);
Write('A = ');ReadLn(A);
P:=1;
C:=false;
B:=Abs(B);
While B>0 do
Begin
P:=P*(B mod 10);
if B mod 10 = A then C:=true;
B:=B div 10
End;
WriteLn('P = ',P);
if C then WriteLn('Не верно')
else WriteLn('Верно');
ReadLn
End.
uses Crt;
Var
A:integer;
Begin
ClrScr;
For A:= 100 to 999 do
if ((A+1) mod 2 = 0)and((A+2) mod 3 = 0)and((A+3) mod 4 = 0)and((A+4) mod 5 = 0) then Write(A,' ');
ReadLn;
End.
uses Crt;
Var
A,B,C:integer;
Begin
ClrScr;
Write('Введите натуральное число: ');ReadLn(B);
Write('A = ');ReadLn(A);
C:=0;
While B<>0 do
Begin
if B mod 10 <> A then C:=C*10+B mod 10;
B:=B div 10;
End;
While C<>0 do
Begin
B:=B*10+C mod 10;
C:=C div 10
End;
WriteLn(B);
ReadLn;
End.