В правой колонке всё правильно. В первой нужно убрать монитор.
1: удали <span>Sony Vegas
2: установи </span>K-Lite Codec Pack(либо же переустанови, если таковой имеется), но перед установкой удали старые кодеки.
3: установи Quick Time и ПЕРЕЗАГРУЗИ ПК
4:Установи Sony Vegas (13.0), если не прокатит откатись до 12-ой версии.
Горький острый. теплый горячий.сухой влажный. я не я не знаю как то так
program simple_num;
var n:integer;
function simple(num:integer):boolean;
var count, i:integer;
key:boolean;
begin
count := 0;
i := 1;
repeat
if num mod i = 0 then
inc(count);
inc(i);
until (i > num);
if count > 2 then
key := false
else key := true;
simple := key;
end;
begin
writeln('Введите натуральное число больше 1');
readln(n);
if n > 1 then
if simple(n) then
writeln('Число ',n, ' простое')
else writeln('Число ',n, ' непростое')
else writeln('введено число менее 1');
end.
Напиши учит нарисуйиель.НАпиши ш нарисуй кол и напиши а.Напиши ком нарисй как кто нибуть пьёт и напиши тер.