Вариант ответа 4 - PPT
P.S. Во втором варианте буква X означает что у презентации будет совместимость со старыми версиями PowerPoint( вроде бы с 1997-2003)
<em>// PascalABC.NET 3.3, сборка 1599 от 17.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString(' >');
Write('-> ');
var n:=s.Length;
if n<4 then Writeln(s)
else
while true do begin
var p:=n mod 3; p:=p=0?3:p;
Write(s[:p+1],',');
s:=s[p+1:];
n:=s.Length;
if n=3 then begin Writeln(s); Exit end
end
end.
<u>Примеры</u>
> 1231423454123112313211
-> 1,231,423,454,123,112,313,211
> 123456
-> 123,456
> 13
-> 13
V=K*T*Vк*i, К=1280*1024, Vк=60 кадров/сек, i=10 (1024=2^10)
V=16384Мбайта=16384*1024*1024*8 бит
Т=(16384*1024*1024*8 )/(1280*1024*60*10)=174,763 cек
Var a,b:integer;
begin
writeln('Введите число');
readln(a);
b:=(a mod 10)*10+(a div 10);
writeln('Ответ');
writeln(b);
end.