1: удали <span>Sony Vegas
2: установи </span>K-Lite Codec Pack(либо же переустанови, если таковой имеется), но перед установкой удали старые кодеки.
3: установи Quick Time и ПЕРЕЗАГРУЗИ ПК
4:Установи Sony Vegas (13.0), если не прокатит откатись до 12-ой версии.
#include <iostream>
using namespace std;
int main()
{<span>
setlocale(0,"");</span><span>
int m,d;</span><span>
cout<<"введите номер месяца ";</span><span>
cin>>m;</span><span>
cout<<endl;</span><span>
cout<<"введите номер дня ";</span><span>
cin>>d;</span><span>
cout<<endl;
</span><span> if ((d==28) || (d==31) || (d==30) )</span><span>
cout<<"следующая дата "<<m+1<<". "<<1<<endl;
</span><span> else
</span><span> cout<<"</span>следующая дата<span> "<<m<<". "<<d+1<<endl;
</span><span> return 0;
</span>}
<u>PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(15,0,100); a.Println;
a.Average.Println
end.
<u>Пример</u>
65 11 46 1 81 74 17 45 5 79 92 10 39 41 42
43.2
Программа:
var x,i,sum:integer;beginx:=10;sum:=0;for i:=1 to 90 do //90 двухзначных чисел всего begin if x mod 10 = 0 then begin sum:=sum+x; end; x:=x+1; end; writeln(sum);end.
У тебя условие " если Х делится на 3 без остатка, то "да"" правильный ответ: 2 и 3
И ещё: программа у тебя записана не верно. тебе надо заменить readeln(x); на readln(x); и writeln ("Да") все буквы, которые хочешь вывести надо писать в одинарных ковычках ' ' , из этого следует что это надо заменить на <span> writeln ('
Да')</span>