1. Мультимедіа - А. Текст, графічні зображення, аудіо та відео
2. Кардрідер - Г. Пристрій для роботи з флеш-картами
3. Об'єкти мультимедійних повідомлень - Б. Поєднання різних ів подання повідомлень
4. Редактори мультимедійних даних - Д. Програми для створення та редагування звукових і відеоданих
5. Мультимедійні програвачі - В. Програми для перегляду та прослуховування мультимедійних даних
6. Засоби для перегляду графічних зображень, або в'юери - Е. Програми для перегляду, виконання простіших операцій з редагування та форматування графічних зображень, їх упорядкування
Спасибо
Ответ дал: Гость
ха-ха-ха)) учебник по информатике за 10
там все
программа №4
program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end.
потхоньку буду дополнять, не так все быстро))
№5
program р_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе') end.
Ответ дал: Гость
пример программы для паскаль
program a;
const n = 50; vari: byte; b: array[1..n] of word; procedure proc(a: array of word); beginfor i: =1 to n doif((129 < = a[i]) and (a[i] < = 160)) or ((161 < = a[i]) and (a[i] < =175)) or ((225 < = a[i]) and (a[i] < = 242)) thenwriteln('index = ',i+1,'; bukva - ''',char(a[i]),'''',' a[i] = ',a[i]); end;
beginwriteln; for i: =1 to n do b[i] : = random(300); for i: =1 to n do begin write(' ',i,' = ',b[i]); if (i mod 5 = 0) then writeln; end; writeln; writeln; proc(b); readln;
Популярные вопросы